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-NLIST SEQ,BIN,LOC 
EM % 


IDENTIFICATION 


PRODUCT CODE: AC-S881A-MC 

PRODUCT NAME: CZKMDAO DMS11-DA STATIC 
PROGRAM DATE: SEPTEMBER 1981 
MAINTAINER: CSS/NPG DIAGNOSTICS 


COPYRIGHT (C) 1982 BY 

DIGITAL EQUIPMENT 2 eaaapapas 
MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LCE a MAY 
BE USED AND COPIED ONLY IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE AND WITH THE INCLUSION 

OF THE ABOVE COPYRIGHT a PSD THIS gy Ai Fy ANY OTHER 


MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO 
AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION: 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
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1.0 ABSTRACT 
THE DMS11,-D,-A,-DA_ LINE og! STATIC DIAGNOSTIC TEST THE LINE UNIT 
FOR BOTH CCP’& BOP MODES IN THE USYRT oe ivan CE yg ® THIS DIAGNOSTIC 
EXERCISES THE LINE UNIT WITHOUT RESIDENT FIRMWARE IN THE KMC11 
GENERAL PURPOSE MICROPROCESSOR. THIS DIAGNOSTIC IS A_STAND ALONE 
PACKAGE AND SHOULD BE EXERCISED PRIOR TO EXERCISING THE DYNAMIC DIAGNOSTIC 
2.0 REQUIREMENTS 
2.1 EQUITMENT 
PDP=11 PROCESS 
KMC11 ae 7 PURPOSE MICROPROCESSOR 
NOTE: THIS ee IC WILL TEST UP TO 16 KMC11 
NERAL PURPOSE MICROPROCESSOR'S, BUT THEY 
MUST BE INSTALLED SEQUENTIALLY ON THE BUSS 


DMS11=D LINE UNIT 
NOTE: — WILL TEST UP TO 8 LINES PER 


2.2 STORAGE 
THIS DIAGNOSTIC NEEDS A MINIMUM OF 16K OF MEMORY LOCATIONS 
2.3 PRELIMINARY PROGRAMS 


CZKMBAO KMC11-B STATIC PART1 
CZKMCAO KMC11-B STATIC PART2 


PRIOR TO EXERCISING THE STATIC DIAGNOSTIC THE KMC11 MUST BE ERROR 
FREE. THIS DIAGNOSTIC DOES NOT TEST THE KMC11 

3.0 LOADING PROCEDURE 

3.1 METHOD 

LOAD THE DIAGNOSTIC USING THE ABS LOADER. THIS DIAGNOSTIC IS 

SELF STARTING. TO RESTART THE DIAGNOSTIC LOAD ADDRESS 200 ( 


8) 
AND DEPRESS START. IF THE DIAGNOSTIC IS ON MAGNETIC MEDIA, FOLLOW THE 
INSTRUCTIONS FOR THE MONITOR BEING USED. 


4.0 STARTING PROCEDURE 
4.1 STARTING ADDRESS (200) 


4.2 RESTART ADDRESS 
RESTART ADDRESS 200 (8) 


D 
CZKMDAO DMS11=DA STAT ‘ mcr 30A(1052) 21-OCT-81 09:21 PAGE 3 
CZKMDA.P11 20-0CT=81 17:03 SEQ 0003 


4.3 OPERATOR ACTION 
DURING THE INITIAL START UP THE DIAGNOSTIC WILL Ra yaad i 


- DURING 
A RESTART THE DIAGNOSTIC WILL NOT OUTPUT THE TITLE OF THE DIAGNOSTIC 
BUT ENTER THE MONITOR DIRECTLY. AFTER ENTRY INTO THE DIAGNOSTIC 
MONITOR THE OPERATOR CAN ENTER THE COMMANDS LISTED IN SECTION 
4.4 OF THIS WRITEUP. 


5.0 STARTING AND TEST INITIALIZATION: 


LOAD AND START MEMORY ADDRESS 5 BY PRESCRIBED 
METHOD AS PER PDP-11 PROCESSOR TYPE. 

ee DEVICE WILL IDENTIFY THE DIAGNOSTIC ON THE 
THE CONSOLE MONITOR ROUTINE IS ENTERED EACH TIME ON START 
UP AND OFFERS THE ty E FOLLOWING CHOICES AS 


URE 

TO WHICH THE OPERATOR MUST RESPOND WITH A 1 OR 2 

Sy A CARRIAGE RETURN. 

DIAG. TEST IS ENTERED IF THE CONFIGURATION ROUTINE HAS 

BEEN PREVIOUSLY ENTERED AND IF NOT WILL AUTOMATICALLY 

2) oodtum CONFIGURATION ROUTINE TO SPECIFY KMC11(S) STATUS. 
WHEN THE CONFIGURE MODE IS ENTERED FOR THE FIRST TIME 
THE CONFIGURE TABLE IS ENTERED FROM THE TOP AND THE FIRST 
KMC11 IS SPECIFIED 


DEV.ADR.= (6 OCTAL CHARACTERS) ;BUS ADDRESS OF KMC11 CSR 


1 


~~ 


LINES(O-7) (1.E..4,4.4) OR (A)=ALL(N)=NONE LINES TO BE TESTED 
CTDENABLE (O)DIS ISABLE 3TO ENABLE OR DISABLE THIS UNIT FROM TESTING 
(O)EXTERNAL (1) INTERNAL TO ENABLE RUNNING TESTS REQUIRING THE 

: EXTERNAL DATA LOOP (EXT.LOOP CONNECTOR) 
(1) CRC32 (0) NO CRC32 > DMS11-DA, DMS11-A HAVE NO CRC32- 


* IF STATUS IS NOT TO BE CHANGED ON CURRENT INQUIRY A CARRIAGE 
RETURN (ONLY) MAY BE TYPED 


AFTER THE INPUTTING IS COMPLETED AN ‘’s*’ IS PRINTED AT WHICH POINT 
THE OPERATOR HAS 3 CHOICES BY TYPING AN 


. (EXIT) THE CONFIGURE ROUTINE (ENTERS cons ROUTINE OR 
DIAG. TEST IF DIAG. TEST WAS THE ENTRY POINT 


. (MODIFY) AN M FOLLOWED BY A #1-16 (DEC) TO SPECIFY THE DESIRED 
KMC11°S STATUS TO BE MODIFIED. THE STATUS BLOCK IS PRINTED 
AND THE NEW STATUS INVOLKED. 


— (ALL) FROM LAST KMC11 PARAMETER ae POINTED TO EITHER BY 
THE INITIAL ENTRY OR THE ‘MODIFY’’ ROUTINE THE REMAINING 
BLOCKS ARE LOADED WITH SEQUENTIAL DEVICE STATUS TO THE END 
OF THE CONFIGURATION TABLE. 


E 
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* ANY COMBINATION OF DEVICE STATUS CAN BE CONFIGURED AND RUN AS 
LONG AS AT LEAST 1 KMC11 IS ENABLED IN THE TABLE 


CONTROL : 


TYPING A CNTR C (*C) WILL FORCE ENTRY TO THE MONITOR 
ROUTINE. 


CONTROL G 

PROCESSORS WITHOUT CONSOLE PANELS WILL HAVE A SOFT 
SWITCH REGISTER oh IS INVOLKED BY THE OPERATOR TYPING 
~ CNTR G (*G). AFTER THE NEW SWITCH VALUE IS ENTERED THE 
PROGRAM IS RESUMED AT THE POINT OF INVOLK. 


5.1 SWITCH OPTIONS: 


THE SWITCH REGISTER SETTING MUST BE DONE ACCORDING TO 
ena A alas AND HARDWARE ARCHITECT. 


IT15 = 1 ;HALT ON ERROR 

BIT14 = 1 :LOOP_ON TEST 

BIT13 = 1 INHIBIT Pao TYPEOUTS 

BIT10 = 1 RING BELL ON ERROR 

BITO9 = 1 LOOP ON ER 

BIT08 = 1 ;LOOP ON TEST IN SWR BITS 07-00 


TEST EXECUTION + SEQUENCES: 


EACH TEST MUST BE SUCCESSIVELY COMPLETED 
BEFORE THE NEXT CAN BE ENTERED. ALL TESTS 
ARE RUN SEQUENTIALLY ON EACH UNIT (KMC + 
DMS11D) AND THE CURRENT DEVICE IS SPECIFIED 
BY THE SEQUENCE OF THE CONFIGURATION TABLE 
(ENABLED UNITS ONLY). 


6.0 ERRORS 


ALL ERRORS ARE REPORTED ON THE TTY UNLESS CONSOLE SWITCH 
13 IS SET (REFER TO SECTION 5.1 OF THIS WRITEUP). ALL ERRORS 


WITH OUTPUT OF CERTAIN REGISTERS OR MEMORY LOCATIONS WHICH 
CAN BE USED AS A AID. 


CZKMDAO_DMS11=DA STAT 
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7.0 TEST DESCRIPTION 


EACH INDIVIDUAL TEST HAS A WRITEUP EXPLAINING WHAT IT DOES 
REFER TO THE TEST ITSELF FOR A EXPLANATION. 


SUBROUTINE DESCRIPTIONS USED IN TEST WRITE UPS 


MASTER CLEAR: 


LINE RESET: 


TEST 1: 


TEST 2: 


TEST 3: 


TEST 4 : 


TEST 5 : 


TEST 6: 


TEST 7: 


SETTING 7: CLEAR ON KMC11 (BIT OF = 
CLEARING CONTROL AND STATUS REGISTERS AND 
LOADING THE CURRENT LINE NUMBER IN 

PRIMARY REGISTER 11. 


LOADS THE CURRENT Li NUMBER (IN PRIMARY 
REGISTER 11) We SETS BIT 0 IN PRIMARY 
REGISTER 12 (LINE RESET). 

TEST DESCRIPTIONS 


(LINE reer REGISTER TEST) 
THIS TEST ISSUES A RESET oa AND CLEARS 
THE CSRS THEN READS AND TEST PRIMARY 
REGISTER 11 FOR BEING CLEAR 

ERROR REPORT IS ERROR 1 


(SECONDARY SELECT REGISTER TEST) 
THIS TEST READS PRIMARY REGISTER 12 
FOR BEING CLEAR AFTER A RESET PULSE 
IS EXECUTED. 

ERROR REPORT IS ERROR 1 


wk eas oot Tekues hoe Oe 


AR eR 13 1 D AND PRIMARY 
REGISTER 1 AY TESTED FOR BEING CLEARED. 
OR REPORT IS ERROR 1 


(LINE CONTROL REGISTER ye 
A RESET PULSE IS _ ISSUED AND PRIMAR 
REGISTER 14 IS TESTED FOR BEING CORRECTLY 
eee tees BITS 1 AND 2 
RROR REPORT IS ERROR 1 


(TRANSMIT STATUS MULTIPLEXER REG. TEST) 
A RESET PULSE IS ISSUED H 
CORRESPONDING LINE (CURRENTLY UNDER TEST) 
IS CHECKED FOR BEING CLEAR. 

ERROR REPORT IS ERROR 1 


(RECEIVE STATUS MULTIPLEXER REG. TEST) 
A RESET PULSE IS ISSUED 


H 
CORRESPONDING LINE (CURRENTLY UNDER TEST) 
IS CHECKED FOR BEING CLEAR. 

ERROR REPORT IS ERROR 1 


(PRIMARY REG. 11 WRITE/READ TEST) 
A ONE BIT IS WALKED THROUGH w Ht: os 5_AND 4 
OF PRIMARY REGISTER 11. THE BITS ARE 


F 


1 


SEQ 0005 
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TEST 10: 


TEST 11: 


TEST12: 


TEST 13: 


TEST 14: 


TEST 15: 


TEST 16: 


TEST 17: 


TEST 20: 


7:03 


WRITTEN THEN READ FOR BEING SET. 
ERROR REPORT IS ERROR 2 


ta a yr 12_WRITE/READ TEST) 
A ONE B KED THROUGH 


REGISTER R12, Bt BITS 4,5,6 AND 7. THE BITS 
ARE WRITTEN THEN READ AND CHECKED FOR 
BEING SET. 

ERROR REPORT IS ERROR 2 


Teo REGISTER 13 erg + 1 


RROR REPORT IS ERROR 2 
(PRIMARY REGISTER 14 READ/WRITE TEST) 
BIT WALKED THROUGH PRIMAR 


REGISTER 14, BITS 0,4,5 % AND 7. BIT 
3 1S ALSO TESTED IF CRCS IS ENABLED. 
THE Bit : ORE WRITTEN THEN READ AND 
CHECKED FOR BEING SET AND CLEARED. 
ERROR REPORT IS ERROR 2 


(SECONDARY REGISTER 0 READ TEST) 
A LINE RESET IS DONE AND SECONDARY 
REGISTER 0 (RECEIVE BUFFER) IS READ 
AND CHECKED FOR BEING CLEAR. 

ERROR REPORT IS ERROR 3 


(SECONDARY REGISTER 1 READ TEST) 
A LINE RESET IS ISSUED AND SECONDARY 
REGISTER 1 IS READ AND CHECKED FOR 
BEING CLEAR. 

ERROR REPORT IS ERROR 3 
ro, REGISTER 2 READ TEST) 

A LINE RESET IS ISSUED AND SECONDARY 
REGISTER 2 IS READ AND CHECKED FOR 
BEING CLEAR. 

ERROR REPORT IS ERROR 3 
(SECONDARY eesisres 3 READ TEST) 


REGISTER 3 IS READ AND CHECKED FOR 
NG Oy (BITS 6,5 AND 4 ARE 


FRROR REPORT IS ERROR 3 
(SECONDARY REGISTER 4 READ TEST) 
A LINE RESET IS ISSUED SECONDARY 
REGISTER 4 IS READ CHECKED FOR 
BEING CLEAR. 

ERROR REPORT IS ERROR 3 


(SECONDARY REGISTER 5 READ TEST) 
A LINE RESET IS ISSUED AND SECONDARY 


1 


SEQ 0006 
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TEST 21: 


TEST 22: 


TEST 23: 


TEST 24: 


TEST 25: 


TEST 26: 


TEST 27: 


TEST 30: 


TEST 31: 


17:03 
3 7h gl oe (MODE CONTROL) IS READ AND 
CHECKED FOR BEI LEAR. 

RROR REPORT IS ERROR 3 


(SECONDARY REGISTER 7 READ TEST) 
A_LINE RESET IS ISSUED AND SECONDARY 
REGISTER 7 (CHARACTER LENGTH) IS 
READ AND CHECKED FOR BEING CLEAR. 
ERROR REPORT IS ERROR 3 


(SECONDARY REG. 1 WRITE TO READ ONLY BIT “'RSOM’’) 
A LINE RESET IS i. AND THE *RSOM'’ 
(BIT 0) IS WRITTEN WITH A ONE BIT 
THEN READ AND CHECKED FOR NOT BEING 
SET (READ ONLY). 
ERROR REPORT IS ERROR 4 


verge! REG. 1 WRITE TO we ONLY BIT *'REOM’’) 
NE I AND THE ‘REOM’’ 


ONE BIT 
THEN READ AND CHECKED FOR BEING CLEAR. 
ERROR REPORT IS ERROR 4 


(SECONDARY REG. 1 WRITE TO al ONLY BIT *'RXGA*’) 
I THE "'RXGA"* 


H A ONE BIT 
THEN READ AND CHECKED FOR tw CLEAR. 
ERROR REPORT IS ERROR 4 


(SECONDARY REG 1 WRITE TO READ ONLY BIT “'ROR*’) 
ISSUE ry THE “ROR 


H A ONE BIT 
THEN READ AND CHECKED FOR BEING CLEAR. 
ERROR REPORT IS ERROR 4 


(SECONDARY REG. 1 WRITE TO =. ONLY BIT ‘ABCA’ 
A_LINE RESET IS ISSUED AND THE ‘ABCA’ 
(BIT 4) IS WRITTEN WITH A ONE BIT THEN 
READ AND CHECKED FOR BEING CLEAR. 
ERROR REPORT IS ERROR 4 


(SECONDARY ats : WRITE TO ve way! BIT *‘ABCB"’) 


NE AND T 
(BIT 5) IS URITTEN W WITH A ONE BIT THEN 
READ AND CHECKED FOR BEING CLEAR. 

ERROR REPORT IS ERROR § 


wa grt! REG. 1 WRITE a. 7. ONLY BIT ‘'ABCC*’) 
A LINE RESET IS ISSUED AND THE ‘ABCC’ 
(BIT 6) IS WRITTEN WITH A ONE BIT THEN 
READ AND CHECKED FOR BEING CLEAR. 
ERROR REPORT IS ERROR 4 


(SECONDARY REG. 1 WRITE TO READ A} el "“ERRCK"") 
A LINE RESET IS ISSUED AND THE ‘ERR 
BIT 7) IS WRITTEN WITH A ONE BIT THEN 


SEQ 0007 
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READ AND CHECKED FOR BEING CLEAR. 
ERROR REPORT IS ERROR 4 


(SECONDARY REG. ¢ ues wee DATA — TEST) 
L ace AND SECOND 








TEST 32: 












HEN THE 
Ss K FOR CONTAINING 
THE CURRENT DATA PATTERN 
ry REPORT IS ERROR 10 
WHEN THE FULL DATA PATTERN IS REACHED 
(377) A LINE RESET IS ISSUED AND THE 
REGISTER IS READ AND CHECKED FOR BEING 


” ERROR REPORT IS ERROR 11 


TEST 33: weg? REG. 3 ‘*TSOM’’ BIT a sala TEST) 
A_LINE RESET IS ISSUED, THE ‘‘TSOM’* BIT 
ae IS SET THEN READ AND CHECKED FOR 


ERROR REPORT IS ERROR 5 
THE BIT IS THEN WRITTEN TO A 0, READ AND 
CHECKED FOR BEING CLEAR. 


ERROR REPORT IS ERROR 5 
THE BIT IS THEN REWRITTEN AND A LINE 
RESET ISSUED AND REREAD AND CHECKED 
FOR BEING CLEARED. 
ERROR REPORT IS ERROR 8 


TEST 34: (SECONDARY REG. 3 ‘‘TEOM’’ BIT WRITE/READ/RESET TEST) 
A Li RESET IS ISSUED, THE ‘‘TEOM’’ BIT 
T 1) IS SET AND THEN READ AND 





































ERROR REPORT IS ERROR 5 
THE BIT IS THEN WRITTEN TO A 0, READ 
AND CHECKED FOR BEING CL 
ERROR REPORT 1S ERROR 5 
THE BIT IS THEN REWRIT 


TEN AND A 
_— RESET ISSUED AND THE BIT REREAD 
AND CHECK 4 FOR BEING CLEAR 
RROR REPORT IS ERROR 8 


TEST 35: (SECONDARY REG. 3 ae a ch 3 he Sa TEST) 
A_LINE RESET IS ISSUED, THE ‘‘TXAB’’ BIT 
(BIT 2) IS SET THEN READ AND CHECKED FOR 
BEING SET 


ERROR REPORT IS ERROR 5 
THE BIT IS THEN WRITTEN TO A 0, READ AND 
CHECKED FOR BEING CLEAR. 


ROR REPORT IS ERROR ; 
THE a} IS iy A ng ge A LINE 
RESET ISSUED AND THE BIT REREAD AND CHECKED 
FOR BEING CLEARED. 
ERROR REPORT IS ERROR 8 


(SECONDARY REG. 3 *'TXGA’’ WRITE/READ/RESET TEST) 
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A LINE RESET IS ISSUED, ‘‘TXGA’* BIT 
(BIT 3) IS SET THEN READ AND CHECKED FOR 
BEING SET. 
ERROR REPORT IS ERROR 5 
THE BIT IS THEN WRITTEN TO A 0, READ AND 
CHECKED FOR BEING C 
ERROR R RROR 5 
THE BIT IS THEN TTEN AND A LINE 
RESET ISSUED AND THE BIT REREAD 
CHECKED FOR BEING CLEARED. 
ERROR REPORT IS ERROR 8 
TEST 37: (SECONDARY REG. 4 INCREMENTAL WRITE/READ TEST) 
A MASTER CLEAR IS AN INCREMENTAL 


4s SUED AND 

DATA PATTERN (1-377) IS aa Ny A . THE 
SYNC _REG. (REG. 4) THEN READ AND CHECKED 
TO BE THE SAME AS THE CURRENT DATA PATTERN. 


ERROR REPORT IS ERROR 
ON THE FINAL DATA PATTERN ( yi a. LINE RESET 
IS ISSUED AND THE REGISTER IS REREAD 
AND CHECKED FOR BEING CLEARED. 

ERROR REPORT IS ERROR 11 


TEST 40: (SECONDARY REG. 5 ‘PROTEX*’ 7 A | Ae 5 aati TEST) 


ERR EPOR 
THE BIT IS THEN REWRITTEN TO A ONE AN 
A LINE RESET IS ISSUED AND = BIT REREAD 
AND CHECKED FOR BEING CLEAR 


TEST 41: (SECONDARY REG. 5 *PROTEY*’ A 1) WRITE/READ/RESET TEST) 
A LINE RESET IS sare AND THE ‘PROTEY' 
BIT (BIT 1) IS WRITTEN TO A ONE THEN 
READ AND CHECKED FOR BEING SET. 
ERROR REPORT IS ERROR 
THE BIT IS THEN WRITTEN TO A O 
REREAD AND CHECKED FOR BEING CLEAR. 
ERROR REPORT IS a, 
THE BIT IS THEN REWRITTEN 


TO A ONE AN 
A LINE RESET IS ISSUED AND = BIT REREAD 
AND CHECKED FOR BEING CLEAR 


TEST 42: (SECONDAR ag F 5 *PROTEZ’’ (BIT, ru ober Meee set TEST) 
A LINE Rese T IS ISSUED AND THE ‘PROTEZ** 
a, 2) IS WRITT TTEN 10 A ONE THEN 
READ AND CHECKED FOR BEING SET. 
E ‘ “wy 6 


RROR yt yi! IS ER 
THE BIT IS THEN WRITTEN TO A O 
REREAD AND CHECKED FOR BEING CLEAR. 


1 
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TEST 43: 


TEST 44: 


TEST 45: 


TEST 46: 


ERROR REPORT IS ERROR Ay 
THE BIT IS_ THEN ir hye TO A ONE AND 
A LINE RESET IS ISSUED AND THE BIT REREAD 
AND CHECKED FOR BEING CLEAR. 


Ne 
2 
sz 
Sz 
> 

$ = 

mm 

“a 
“~ 
= 
mm 
2 


RROR 
wi BIT IS T 
A LINE RESET 5 
AND CHECKED FOR BEING CLEAR. 


oo 
S25 
Fs 
© 


(SECONDARY REG. 5 ‘‘SAM’’ ai 4) WRITE/READ/RESET TEST) 
A LINE RESET IS ISSUED AND THE *‘SAM’’ 


POR 
THE BIT IS THEN REWRITTEN TO A ONE AND 
A LINE RESET IS ISSUED AND - BIT REREAD 
AND CHECKED FOR BEING CLEAR 


(SECONDARY REG. 5 ‘'SSL’* (BIT 5) WRITE/READ/RESET TEST) 
AND THE *‘SSL*’ 


€ BIT IS Rye ONE AND 
A LINE RESET IS ISSUED AND sit BIT REREAD 
AND CHECKED FOR BEING CLEAR 


(SECONDARY REG. 5 ‘PROTO’ (BIT 2. leases TEST) 
A LINE RESET IS ISSUED AND THE oro" 
BIT (BIT 6) IS WRITTEN TO A ONE THEN 
READ AND CHECKED FOR BEING SET. 
ERROR REPORT IS ERROR 6 
THE BIT IS THEN WRITTEN TO A O 
REREAD AND CHECKED FOR BEING CLEAR. 
ree EPORT IS ERROR ° 
THE BIT IS THEN REWRITTEN TO A ONE AND 
A LINE RESET IS ISSUED AND = BIT REREAD 
AND CHECKED FOR BEING CLEAR 


SEQ 0010 








CZKMDAO_DMS11=DA eree C 
CZKMDA.P11 20-OCT-81 


TEST 47: 


TEST 50: 


TEST 51: 


TEST 52: 


TEST 53: 
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arr 
a 
o 


C 
A eis. Is ioaee AND THE ' 


a AND 
A LINE RESET IS ISSUED AND THE BIT REREAD 
AND CHECKED FOR BEING CLEAR. 


(SECONDARY REG. tes RDATAS"* (BIT rd wae TEST) 
THEN 


ERR POR E 
THE BIT IS THEN REWRITTEN TO A ONE AN 
A LINE RESET IS ISSUED AND nas BIT REREAD 
AND CHECKED FOR BEING CLEAR 


(SECONDARY REG. 7 *‘TDATA1*’ arr, 4) WRITE/READ/RESET TEST) 
A mit IS jsoee oe HE *‘TDATA1"' 


ERROR REPORT IS ERROR 
THE BIT IS THEN WRITTEN TO A O 
REREAD a ee ED ror tcane C 


E REPOR cr 
wi BIT IS THEN REWRITTEN TO A ONE AND 
LINE RESET IS ISSUED AND as BIT REREAD 
AND CHECKED FOR BEING CLEAR 


(SECONDARY REG. 
A LINE “ESET IS 


4 “TDATA2** (BIT 2 WRITE/READ/RESET TEST) 
BIT (BIT 6) IS WR 


SSUED AND THE ' 
ITTEN TO A ONE THEN 


a 
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1 
17:03 


A LINE RESET IS ISSUED AND THE ° 


weer REG. 7 nae ale (B1T 44 ata TE/READ/RESET TEST) 
tH (BIT 7) IS WRITTEN H- A a= THEN. 


m 
—} 
os 

am 

sgxee 
Se 
a. 


ERR EPOR 
THE BIT IS THEN REWRITTEN TO A ONE AND 
A LINE RESET IS ISSUED AND THe BIT REREAD 
AND CHECKED FOR BEING CLEAR 


(TRANSMIT AND RECEIVE INITIALIZATION 34 FOR CCP PROTOCOL) 
THIS TEST WILL UTILIZE THE INTERNAL DAT 
LOOP (LOOPING THE OUTPUT THE —— 
ee an TO THE USYRT RECEIVER) 
THE ON BOARD SINGLE STEP MAINTENANCE CLOCK. 

THE FOLLOWING PROGRAMING STEPS ARE DONE 

ISSUE A_MASTER CLEAR 

7 PROTOCOL TO CCP (BIT 6-SEC. REG. 5) 

OAD SECONDARY SYNC REGISTER WITH A 26 (OCT.) 

of CLK, BITS MB & MC 


SE REG. 
READ *'TBMT"* ioe 13) AND TEST BIT IS CLEAR 
ALE es. * (AND NO CLK PULSES) 


**TBMT’’ IS Tae CHECKED FOR BEING SET AFTER 


IS ERROR 13 
TRANSMIT DATA BUFFER (SECONDARY mo ahh rE IS LOADED 
WITH THE ST " (START OF TEXT) — (2). 
THE MAINTENANCE CLOCK IS STEPPED 7 T 
RECEIVED IS READ (Blts. 3-sec 13) 
AND CHECKED FOR BEING SET. 
S ERROR 1 
IS WRITTEN TO AO 
THE MAINTENANCE CLOCK IS STEPPED 8 TICKS 
ne S otnk “we RECEIVED IS REREAD AND CHECKED 


* ERROR REPORT IS ERROR 15 
THE MAINTENANCE CLOCK IS STEPPED 9 TICKS 
THE *'SYNC FLAG’’ RECEIVED IS READ AND CHECKED 
FOR BEING CLEAR (CLOCKING IN A NON FLAG CHARACTER) 
* ERROR REPORT _IS ERROR 1 
A SERIES OF 3 DATA CHARACTERS (101) ARE LOADED 


ER ERROR 12 
. THE MAINTENANCE CLOCK IS STEPPED 2 (FULL) CLOCK TICKS. 
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TEST 56: 


-81 17:03 


INTO THE TRANSMIT DATA BUFFER FOLLOWED BY 
THE rg rth gr CLOCK STEPPED 8 TICKS 
THE 4 DAT poem titre IS LOADED AND THE MAINT. 


kK D K 
PRIMARY REGISTER 13 1$ READ AND oe BITS 
0 2 (RDA AND RAC) ARE CHECKED FOR BEING SET 
PORT FOR ‘'RAC*’ (RECEIVER ACTIVE) IS ERROR 17 
ERROR REPORT FOR ‘RDA®’ (RECEIVE DATA AVAIL.) IS ERROR 18 
THE RECEIVE DATA BUFFER_IS READ 


( 
CHECKED FOR CONTAINING THE SYNC FLAG VALUE (26) 
* ERROR REPORT IS ERROR 20 


(TRANSMIT AND RECEIVE ge Ng FE aad ogy TEST FOR BOP PROTOCOL) 
THIS TEST WILL VUiLice THE INTERNAL DATA LOOP 
(LOOPING OUTPUT OF THE USYRT TRANSMITTER TO 
THE USYRT RECEIVER) AND THE ON BOARD SINGLE STEP 
MAINTENANCE CLOCK. 

THE ag FF PROGRAMING + he ARE DONE 


SET PROTOCOL TO GOP AND SECONDARY ADDRESS MODE 
LOAD SYNC SECONDARY ADDRESS REG. WITH A 376 

T TRANSMIT ENABLE, yay ENABLE AND 
1e-BITS 68 MODE (MB @ MC) (PRIMARY 


SET *‘TSOM"’ eat at OF MESSAGE (SEC 3-BIT 0) 


as 
m 
paea 
S35 
$8 
zz 
m 


~ 
m 
“ 
a 
. 

— 

Rese. 
a: 
— 
“ 


OAD THE TRANSMIT DATA BUFFER SECONDARY SYNC 
ADDRESS (376) 
STEP MAINT CLOCK 7 TICKS 
te eae FLAG RECEIVED (PRI 13-BIT 3) 
* ERROR REPORT IS ERROR 14 
THE TRANSMIT DATA BUFFER IS LOADED WITH A 0 
THE MAINTENANCE CLOCK IS STEP 9 TICKS 
THE ie hoe BIT IS THEN TESTED 


oe 
pappat 4 
gRA33° a 
==8 ” 


tere te FOR “RDA IS ERROR 18 

OTRSOM' RECEIVE START OF MESSAGE BIT 
(SEC 1-811 0) IS TESTED FOR BEING SET. 
ERROR REPORT 1S ERROR 19 


ROR 
THE RECEIVE DATA BUFFER IS READ AND TESTED 
FOR CONTAINING THE 376 (SYNC ADDRESS) 


I) 
CZKMDAO_DMS11-DA sratit MACY11 30A(1052) 21-OCT-81 09:21 PAGE 14 
CZKMDA.P11 20-0CT-81 17:03 SEQ 0014 
* ERROR REPORT IS ERROR 20 


TEST 57: (END OF MESSAGE TEST FOR 7 PROTOCOL) 
THIS TEST Sa Lvice IN_THE See ety: SEQUENCE 
SUES A MASTER CLEAR SEQUENCE 
T THE CHARACTER ere REGISTER (SEC 7) AO (8 BIT)) 
TENA AND INTERNAL DATA LOOP SINGLE 


LOCK 

SMIT START OF “ 
STEP THE adh gees CLOCK 1 TICK 
EST * FOR SET 


raeek TILL SET 
LOAD TRANSMIT DATA BUFFER WITH A 0 
CLEAR ‘‘TSOM'' BIT 


RUN A STATUS CHECK LOOP (400 OCTAL) STEPPING 
THE CLOCK 1 TICK S - dee MONITORING SYNC FLAG 


S ERROR 14 

A_LOOP MONITOR THAT RECEIVE 1%. AVAILABLE 
(RDA) WILL SET WITHIN 400 (OCTAL) CLOCK TICKS 
oe en LSO MONITORING THE TRANSMITTER (TBMT) 


hont ATA 
* ERROR REPORT IF "'RDA’' FAILS TO SET IS ERROR 34 
Ay *RDA’’ SETS THE RECEIVE DATA BUFFER 


READ. 
ry a OF MESSAGE (TEOM) IS SET 
A LOOP TO MONITOR THAT THE SYNC FLAG RECEIVED 
(S/F) SETS WITHIN 400 (OCTAL) CLOCK TICKS. 
* ERROR REPORT IS ERROR 22 
THE MAIN U ye | CLOCK IS STEPPED 2 TICKS 
AND ao tee * RECEIVE END OF MESSAGE IS TESTED 


BEING SET. 
* ERROR REPORT IS ERROR 21. 


TEST 60: (END OF MESSAGE TEST FOR CCP MODE) 
THIS rest Ged nasten c THE FOLLOWING SEQUENCE 


ER CLEAR 
SET CHARACTER LENGTH REGISTER "0 5, (8 BITS) 
SET PROTOCOL TO CCP (SEC 5-BIT 6 
LOAD THE SYNC ADDRESS REGISTER vITH A A_26 
oY TENA: RENA AND INTERNAL SINGLE STEP MAINT CLOCK 


STEP CLOCK AND LOOP UNTIL mg we 
LOAD THE TRANSMIT DATA BUFFER WITH X (2) 
TEST THAT SYNC FLAG RECEIVED (S/F) sere MUITAIN 
400 (OCTAL) CLOCK TICKS 

* ape weeonT IS E 
TEST THAT "RDA’’ SETS WITHIN 400 (OCTAL) CLOCK 
TICKS (THE ere IS ALSO SERVICED WHILE 


S ERROR 34 
SET "TEON" (TRANSMIT END OF MESSAGE) 
TEST THAT SYNC FLAG RECEIVED (S/F) SETS WITHIN 
400 (OCTAL) CLOCK TICKS. (THE RECEIVE 1S ALSO 
MONITOR TO PREVENT AN OVERRUN 


C 
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TEST 61: 


TEST 62: 


* 


2 


ERROR REPORT IS ERROR 22 


(CHARACTER LENGTH TEST FOR BOP PROTOCOL) 
THIS TEST EXECUTES IN i FOLLOWING SEQUENCE 
ISSUE _A_MASTER CLEAR 


a 


NOTE: 


SET PROTOCOL T BOP 
T LENGTH REG. ( 


SET CHARACTER SEC 7) 

RECEIVE BITS TO ACCEPT 7 BIT CHARACTER ALTERS 

SET TENA, RENA AND INTERNAL SINGLE STEP MAINT CLOCK 
STEP CLOCK UNTIL "'TBMT'’ SET 


TEST THAT SYNC FLAG RECEIVED (S/F) SETS 
WITHIN «I a hag CLOCK TICKS 
ERROR REPORT IS ER 1 


4 
A SEQUEN ce. IS RUN TO MONITOR THAT SYN 
ore "har (S/F) GOES AWAY (WITHIN {00COcTAL) 
ERROR REPORT IS ERROR 33 
THE SEQUENCE MONITORS “‘TBMT’* AND ‘‘RDA"' 
TO OUTPUT 2 DA 


LENGTH UNDER TEST. WHEN “RDA‘’ SETS THE RECEIVE 
DATA BUFFER IS READ AND THE DATA IS COMPARED 
AGAINST THE DATA SENT. 


OR IS_ERROR 23 
v A agit FAILS TO SET WITHIN 400 (OCTAL) CLOCK 


ERROR REPORT IS ERROR 34 
SET “TEOM™ TRANSMIT END OF MESSAGE 
STEP MAINTENANCE CLOCK AND CHECK AFTER 
EACH TICK THAT SYNC FLAG RECEIVER 18 NOT SET, 
ERROR REPORT IS ERROR 36 (S/F SET) 
ERROR REPORT IS ERROR 34 (RDA FAILED 10 SET) 
WHEN "'RDA'’ SETS THE DATA REGISTER IS REREAD 
AND THE DATA COMPARED AGAINST THE TRANSMITTED 
ERROR REPORT IS ERROR 23 
"REOM'’ IS MONITORED FOR SETTING WITHIN 400 
COCTAL) CLOCK TICKS 

RROR REPORT 1S ERROR 21 
THE TEST. IS RERUN FOR REMAINING CHARACTER 
LENGTHS 6,5,4,3 
THE DATA VALUE TRANSMITTED 1S DECREASED ONE 
BIT POSITION FOR EACH DATA CHARACTER LENGTH. 
THE CHARACTER LENGTH FRAMING (TRANSMIT. AND. RECEIVE) 
IS CHECKED BY THE 2 CONSECUTIVE DATA CHARACTERS 
BEING TRANSMITTED AND RECEIVED. 


ee ess rest FOR CCITT-CRC WITH INITIALIZE SET TO 
THIS Test WILL CHECK THAT THE CCITT POLYNOMIAL 


(X16 + 
THERE 


2 + X15 + 1) WITH A PRESET OF - 


x1 
S_NOT FORCED ERROR CONDITION fae TEST. 


I 
THIS TEST PERFORMS THE FOLLOWING SEQUENC 


ISSUE A MASTER CLEAR SEQUENCE 


SEQ 0015 


D2 
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SET ae al yy TO 8 BITS/CHARACTER 
SET PROTOCOL TO BOP AND ENABLE CCITT-CRC16 
WITH_A PRESET OF <1 

SET TENA, RENA AND ENABLE INTERNAL SINGLE 
arer. BAINTENANCE CLOCK 


STEP CLOCK UNTIL ‘‘TBMT’’ SETS 
LOAD ADDRESS WORD (TDB) 


STEP CLOCK AND TEST SYNC FLAG RECEIVED 
SETS WITHIN 400 ERROR | CLOCK TICKS 


* ERROR REPORT I$ ERROR eee 
STEP CLOCK, OUTPUT ‘TBMT'") AND TEST 
RDA” SETS WITHIN 400 COCTAL) CLOCK TICKS 

* ERROR REPORS IS ERR 
TEST THAT DATA READ IS AS SENT 

* ERROR REPORT IS ERROR 
TEST THAT VERRCK BIT 1S NOT SET 

* ERROR REPORT IS ERROR 25 
SET "TEOM' 


STEP CLOCK AND READ RECEIVED DATA WORDS 


ERROR R IS ERROR 36 
hp ly ALL _ RECEIVED WITHIN 400 (OCTAL) 


RROR REPO T ERROR 34 
aest At DATA agi they IS SAME AS SENT 


OR 
STEP CLO EAD DATA AND TEST SYNC FLAG 
RECEIVED Sérs GITHIN. 400 (OCTAL) CLOCK TICKS 
ERROR REPORT 


I 
STEP CLOCK 2 os AND TEST ‘REOM’' IS SET 


* ERROR REPORT IS ERROR 21 
_ TEST "ERRCK'* IS NOT SET 
* ERROR REPORT IS ERROR 25 
TEST 63: (ERROR CHECK TEST FOR CCITT-CRC fe INITIALIZE SET TO 0 (BOP MODE)) 


THIS Test WILL CHECK pig 8 POLY L 
(X16 + X12 + X5 +1) WITH A PRESET of o. THERE IS 


NO FORCED 

THIS TEST a hae THE FOLLOWING SEQUENCE 
ISSUE A MASTER CLEAR SEQUENCE 
SET CHARACTER LENGTH TO 8 BITS/CHARACTER 
SET oy) By Be AND ENABLE CCITT-CRC16 


SET TENA, RENA AND ENABLE INTERNAL SINGLE 
STEP, MAINTENANCE CLOCK 
SET *'TSOM'’ 


STEP CLOCK UNTIL ‘‘TBMT’* SETS 
LOAD ADDRESS WORD (TDB) 


CL 
STEP CLOCK AND TEST SYNC FLAG RECEIVED 


E 
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TEST 64: 


2 
1 17:03 


SETS WITHIN 400 (OCTAL) CLOCK TICKS 
* ERROR REPORT IS 

STEP CLOCK, OUTPUT DATA (ON “TBMT') AND TEST 
RDA” SETS WITHIN 400 COCTAL) CLOCK TICKS 


* ERROR _REPORT IS ER 

TEST THAT DATA READ IS AS SENT 
* ERROR REPORT IS ERROR 2 

TEST THAT ate 


akan ey NOT SET 
* ERROR REPORT IS E 
SET ‘*TEOM"’ 
STEP CLOCK AND READ ree er DATA WORDS 


UNTIL SYNC FLAG RECEIVED SE 
TEST SYNC na SETS WITHIN 400 


(OCTAL) CLOCK 
* ERROR REPORT IS ERROR 36 

TEST ALL DATA RECEIVED WITHIN 400 (OCTAL) 
" cho K TICKS 


REPORT IS ERROR 34 

TEST ALL DATA RECEIVED JS SAME AS SENT 

* ERROR REPORT IS ERROR 
TEST THAT “ERRCK’’ IS NOT SET 

* ERROR REPORT 1S ERROR 25, 

STEP CLOCK, READ DAT TEST SYNC FLAG 

RECEIVED sérs WITHIN GOO COCTAL) CLOCK TICKS 

ERROR T IS ERR 


REPOR 
STEP CLOCK 2 TICKS AND TEST “REOM"’ IS SET 
* ERROR REPORT IS ERROR 21 
TEST “ERRCK’’ IS NOT SET 
* ERROR REPORT IS ERROR 25 


(ERROR CHECK TEST FOR CRC-16 (BOP MODE)) 
THIS bg WILL CHECK THAT THE CRC-16 POLYNOMIAL 
(X16 + X15 + X2 +1) WILL FUNCTION WITHOUT SETTING 
THE ERROR CHECK BIT. THERE IS NO FORCED ERROR 
CONDITION IN THIS TEST. 
THIS TEST PERFORMS THE FOLLOWING SEQUENCE 
ISSUE A MASTER CLEAR SEQUE 
SET CHARACTER LENGTH TO 8 BITS/CHARACTER 
SET PROTOCOL TO BOP AND ENABLE CCITT-CRC16 
WITH A PRESET OF 
SET TENA, RENA AND ENABLE INTERNAL SINGLE 
STEP, MAINTENANCE CLOCK 
SET *'TSOM’* 


STEP CLOCK UNTIL ‘‘TBMT’* SETS 
LOAD ADDRESS WORD (TDB) 


CLEAR ° 
STEP CLOCK AND TEST SYNC FLAG RECEIVED 
SETS WITHIN se eroee CLOCK TICKS 


* ERROR RE 
STEP CLOCK, OUTPUT DATA (ON ‘‘TBMT’*) AND TEST 
RDA SETS “uITHIN 400 (OCTAL) CLOCK TICKS 


ERROR TIS 
TEST THAT ee READ IS sane AS SENT 


S ERROR 
TEST THAT TrRREK BIT IS NOT SET 
* ERROR REPORT IS ERROR 25 


SEQ 0017 
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SET 

STEP CLOCK AND READ RECEIVED DATA WORDS 
UNTIL SYNC FLAG RECEIVE 

TEST SYNC FLAG oe SETS WITHIN 400 
(OCTAL) CLOCK TICKS 

ERROR REPORT IS ERROR 36 

TEST DATA RECEIVED WITHIN 400 (OCTAL) 
CLOCK TICKS 


a 


* ERROR REPORT IS ERROR 34 
TEST ALL DATA RECEIVED IS SAME AS SENT 
* ERROR REPORT 1S 
TEST THAT “ERRCK' IS NOT SET 
* ERROR REPORT 1S ERROR 25 
STEP CLOCK, READ DATA AND TEST SYNC FLAG 
RECEIVED SETS WITHIN 400 (OCTAL) CLOCK TICKS 
* ERROR REPORT 1S ERR aia 
STEP CLOCK 2 TICKS AND TEST "REOM’’ IS SET 
* ERROR REPORT IS ERROR 21 
TEST “ERRCK’’ IS NOT SET 
* ERROR REPORT IS ERROR 25 
TEST 65: (ERROR TEST FOR CCITT=CRC WITH INITIALIZE SET TO ~1 (CCP MODE)) 
THE CCITT POLYNOMIAL 


mits otek CHECK THAT T 


( T OF =-1 
THERE IS NOT FORCED ERROR CONDITION IN THIS TEST. 
THIS TEST PERFORMS THE FOLLOWING SEQUENCE 
ISSUE A MASTER CLEAR SEQUENCE 
SET CHARACTER LENGTH TO 8 BITS/CHARACTER 
SET PROTOCOL 7? BOP AND ENABLE CCITT-CRC16 
WITH A PRESET a, 
SET TENA, RENA oo INTERNAL SINGLE 
STEP. MAINTENANCE CLOCK 
SET *'TSOM’’ 


STEP CLOCK UNTIL ‘‘TBMT*’ SETS 
LOAD ADDRESS WORD (TDB) 

CLEAR ‘‘TSOM 

STEP CLOCK AND TEST SYNC FLAG RECEIVED 
SETS WITHIN 400 (OCTAL) CLOCK TICKS 
ERROR REPORT 1 


STEP CLOCK, OUTPUT DATA (ON "‘TBMT'’) AND TEST 
RDA" SETS WITHIN 400 (OCTAL) CLOCK TICKS 


* ERROR REPORS IS ERR 

TEST THAT DATA READ IS SAME AS SENT 
* ERROR REPORT IS ERR 

TEST THAT ‘ERRCK’’ BIT IS NOT SET 


* - ERROR REPORT IS ERROR 25 
SEY *'TEOM"’ 


STEP CLOCK AND READ RECEIVED DATA WORDS 
UNTIL SYNC FLAG RECEIVE T 

TEST SYNC FLAG RECEIVED SETS WITHIN 400 
(OCTAL) CLOCK TIC 

ERROR REPOR 


OR REPORT IS ERROR 36 
TEST a DATA RECEIVED WITHIN 400 (OCTAL) 
CLOCK TICKS 

* ERROR REPORT IS ERROR 34 

TEST ALL DATA RECEIVED IS SAME AS SENT 
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2 


ERROR REPORT IS ERROR 23 
TEST THAT CERRCK IS NOT SET 

ERROR REPORT. 1S ERROR 25 

STEP CLOCK, READ DATA AND TEST SYNC FLAG 
RECEIVED SETS WITHIN 400 (OCTAL) CLOCK TICKS 
ERROR REPORT 1S ERROR Migate 

STEP CLOCK @ TICKS AND TEST “REOM" IS SET 
ERROR REPORT IS ERROR 21 

TEST “ERRCK’ IS NOT SET 

ERROR REPORT IS ERROR 24 


SEQ 0019 


H 
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TEST 66: 


TEST 67: 


2 


-81 17:03 
(ERROR CHECK TEST FOR CCITT=CRC WITH INITIALIZE SET TO 0 (CCP MODE)) 
THE YNOM 


CCITT POL TAL 
(X16 + X12_+ XS +1) WITH A PRESET eS THERE IS 


ISSUE E EAR CE 
SET CHARACTER LENGTH TO 8 BITS/CHARACTER 
SET oy te | AND ENABLE CCITT-CRC16 


OF 
SET TENA, RENA AND ENABLE INTERNAL SINGLE 
STEP MAINTENANCE CLOCK 
SET “TSOM" ae 
STEP CLOCK UNTIL "'TBMT'’ SETS 
LOAD ADDRESS WORD (TDB) 


STEP CLOCK AND TEST SYNC FLAG RECEIVED 
SETS WITHIN 400 (OCTAL) CLOCK TICKS 
ERROR REPORT 


IS cre 14 
STEP CLOCK, OUTPUT DATA (ON ‘"TBMT’’) AND TEST 
PRA SETS WITHIN KR... (OCTAL) CLOCK TICKS 


* ERROR REPORS IS ERROR 

TEST THAT DATA READ IS SAME AS SENT 
* ERROR REPORT IS ERROR 23 

TEST THAT “ERRCK™ 


BIT IS NOT SET 
* ERROR REPORT IS ERROR 25 
SET *’TEOM’’ 


STEP CLOCK AND READ RECEIVED DATA WORDS 
UNTIL SYNC FLAG RECEIVED SETS 

TEST SYNC FLAG RECEIVED SETS WITHIN 400 
(OCTAL) CLOCK TICKS 

ERROR REPORT IS ERROR 36 

TEST ALL DATA RECEIVED WITHIN 400 (OCTAL) 
coon TICKS 


ERROR REPORT IS ERROR 34 
seer he DATA RECEIVED IS SAME AS SENT 
TEST THAT “ERRCK’’ IS NOT SET 
* — 1+* a IS at 25 
TEP CLO READ DATA AND TEST SYNC FLAG 
RECEIVED SETS WITHIN 400 (OCTAL) CLOCK TICKS 


ROR R 
STEP CLOCK 2 TICKS AND TEST ‘'REOM'’ IS SET 


* ERROR REPORT IS ERROR 21 
TEST "ERRCK’* IS NOT SET 
* ERROR REPORT IS ERROR =24 


(ERROR CHECK TEST FOR CRC-16 (CLP MODE). 
THIS TEST WILL CHECK THAT THE CRC-16 POLY 
(X16 + X1 X2 +1) WILL FUNCT 


CONDITION IN THIS T 


SE@ 0020 


2 
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THIS TEST PERFORMS THE FOLLOWING SEQUENCE 
ISSUE A MASTER CLEAR SEQUENC 
SET CHARACTER LENGTH TO 8 BITS/CHARACTER 
SET ryt TO BOP AND ENABLE CCITT-CRC16 


OF -1 
SET TENA, RENA AND ENABLE INTERNAL SINGLE 
STEP. MAINTENANCE CLOCK 
SET *‘TSOM"’ 


STEP CLOCK UNTIL ‘‘TBMT’* SETS 

LOAD APRESS, WORD (TDB) 

STEP CLOCK AND TEST SYNC FLAG RECEIVED 
SETS WITHIN 400 (OCTAL) CLOCK TICKS 
ERROR REPOR 1 


T IS ER 
STEP CLOCK, OUTPUT DATA (ON ‘‘TBMT’’) AND TEST 
ROA SETS W uITHIN. 400 (OCTAL) CLOCK TICKS 


* ERROR REPORS IS ERROR 

TEST THAT DATA READ IS AS SENT 
* ERROR REPORT IS ERROR 

TEST THAT CERRCK™ BIT IS NOT SET 


* ERROR REPORT IS ERROR 
SET **TEOM"’ 


STEP CLOCK AND READ RECEIVED DATA WORDS 
UNTIL SYNC FLAG RECEIV T 

TEST SYNC FLAG RECEIVED SETS WITHIN 400 
po A CLOCK TICKS 


OR REPORT IS ERROR 36 
TEST ALL DATA RECEIVED WITHIN 400 (OCTAL) 


CLOCK TICKS 
. ERROR REPORT IS ERROR 34 

TEST ALL DATA RECEIVED [S SAME AS SENT 
* ERROR REPORT 1S 

TEST THAT. “ERRCK™ 18 NOT SET 
« ERROR REPORT 1S ERROR 25 


STEP CLO EAD DATA AND TEST SYNC FLAG 
RECEIVED SETS UITHIN 400 (OCTAL) CLOCK TICKS 


ERR EPORT I 
STEP CLOCK 2 TICKS AND TEST "REOM’ IS SET 
ERROR RE S ERROR 21 


Ri T 
TEST “ERRCK’* IS NOT SET 
* ERROR REPORT IS ERROR =24 


TEST 70: (CCP MODE ODD PARITY ‘‘ERRCHK’* MODE) 
THIS TEST WILL CHECK THAT THE ODD PAR oa 44) 
GENERATION LOGIC (IN USYRT) WILL NOT RAISE 
THE “ERRCHK'’ BIT WHEN THE RECEIVER RECEIVES 
THE DATA_CHARACT 
THIS TEST EXECUTES IN THE FOLLOWING SEQUENCE. 
ISSUE A MASTER 


fie AND RECEIVE TO 7 BIT CHARACTER 


L H 
SET PROTOCOL (CCP) STRIP SYNC AND ODD PARITY 
GENERATION AND DETECTION 

LOAD SYNC REGISTER (SEC 4) WITH SYNC CHARACTERS (26) 
SET TENA, TENA AND INTERNAL SINGLE STEP LOOP 

SET ‘‘TSOM'’ (TRANSMIT START oF MESSAGE) 
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STEP CLOCK UNTIL ‘‘TBMT’’ SETS 

TEST THAT SYNC FLAG RECEIVED (S/F) SETS 

WITHIN 400 (OCTAL) CLOCK TICKS 
IS_ERROR 15 


* ERROR REPORT 
STEP CLOCK AND OUTPUT DATA AND MONITOR THAT 
RDA’ SETS WITHIN 400 (OCTAL) CLOCK TICKS 

* ERROR REPORT IS ERROR 
READ DATA RECEIVED AND VERIFY DATA IS 
SAME AS SENT 

« ERROR REPORT IS ERROR 23 
THE TERRCHK ’ BIT IS READ AND TESTED FOR 

* ERROR REPORT IS ERROR 25 

TEST 71: (CCP MODE EVEN PARITY “ERRCHK"' MODE) 


THIS TEST WILL CHECK THAT THE ie Y 
GENERATION LOGIC (IN USYRT) WILL ARAISE.T HE 
FERRCHK” BIT WHEN THE RECEIVER RECEIVES THE DATA 


CTE 
THIS TEST EXECUTES IN THE FOLLOWING SEQUENCE. 
ISSUE A MASTER CLEAR 
te! AND RECEIVE TO 7 BIT CHARACTER 


SET PROTOCOL (CCP) STRIP SYNC AND ODD PARITY 
GENERATION AND DETECTION 

LOAD SYNC a dh on 48 4) WITH SYNC CHARACTERS (26) 
SET TENA, TENA AND INTERAL SINGLE STEP LOOP 

SET ‘'TSOM' (TRANSMIT START OF MESSAGE) 

STEP CLOCK UNTIL ° T 

TEST THAT SYNC FLAG wise tite rn SETS 


WITHIN 400 (OCTAL) CLOCK 
* ERROR REPORT IS ERROR 15 
LEAR *'TS T 


C 
STEP CLOCK AND OUTPUT DATA AND MONITOR THAT 
“RDA’’ SETS WITHIN 400 COCTAL) CLOCK TICKS 


“ ERROR REPORT IS 
READ DATA RECEIVED AND VERIFY DATA IS 
SAME AS SENT 

* ERROR REPORT IS ERROR 23 
THE "'ERRCHK'’ BIT IS READ AND TESTED FOR 
NOT BEING SET 

« ERROR REPORT IS ERROR 25 

TEST 72: (TRANSMITTER UNDERRUN TEST-BOP MODE) 


THIS TEST WILL CHECK THAT A. FORCED UNDERRUN 
CONDITION WILL SET TSA’ (TRANSMITTER STATUS 
AVAILABLE R’** (TRANSMITTER ERROR) AND 
THAT THE RECEIVER WILL SET THE ‘RXAB"’ 
(RECEIVER ABORT) 
THIS TEST EXECUTES IN. THE FOLLOWING SEQUENCE 
ISSUE A MASTER CLEAR SEQUENCE 
SET CHARACTER LENGTH TO 8 BITS 
SET PROTOCOL TO BOP 
SET TENA, RENA AND INTERNAL SINGLE STEP MAINT CLOCK 
SET “TSO (TRANSMIT START OF MESSAGE) 
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STEP CLOCK UNTIL ‘‘TBMT’* SETS 
OAD AN RESS CHARA 


LOAD AN ADDR! CTER 
CLEAR “'TSOM’’ BIT cae 
STEP CLOCK AND OUTPUT DATA (ON “TBNT"* SET) 
UNTIL SYNC FLAG RECEIVED (S/F) SETS 
TEST SYNC FLAG RECEIVED SETS WITHIN 400 
(OCTAL) CLOCK TICKS 

* ERROR REPORT IS ERROR 14 Snape. 
STEP CLOCK AND OUTPUT DATA UNTIL “RDA 
(RECEIVE DATA AVAILABLE) SETS 
E SETS WITHIN 400 (OCTAL) 


E T IS ERR 
STEP clock AND READ OOATA BUFFER WHEN 
“RDA’’ SETS UNTIL *‘TSA’’ (TRANSMIT STATUS AVAILABLE) 


SETS 
TEST TSA’ SETS WITHIN 400 (OCTAL) CLOCK TICKS 
* ERROR REPORT IS ERROR 36 
TEST “TERR'’ (TRANSMIT ERROR (SEC 3-7) IS SET 
* ERROR REPORT IS E 
STEP CLOCK AND READ RECEIVE DATA BUFFER 
WHEN "RDA" SET “RXAB’’ (RECEIVER 
ABORT) SETS WITHIN. 400, {OCTAL) CLOCK TICKS 
* ERROR REPORT IS ERROR 27 
NOTE: THE 'RXAB’' (177) IS GENERATED BY THE USYRT 
TRANSMITTER LOGIC ON AN UNDERRUN CONDITION 


(TRANSMITTER UNDERRUN TEST FOR CCP MODE) 
THIS TEST TH Ge, ead A_FORCED UNDERRUN 


CONDITION LSE! (TRANSMITTER STATUS 
AVAILABLE) Ba . (TRANSMITTER wey THEN CONTINUE 
STEPPING THE LOC UNTIL _A SYNC FLAG IS ays hay 


a 

INDICATING THE TRANSMITTER SENT SYNC CHARACTERS 
(SECONDARY REG 4). WHEN THE UNDERRUN CONDITION OCCURRED 
THIS TEST EXECUTES IN THE FOLLOWING SEQUENCE 

ISSUE A_MASTER CLEAR SEQUENCE 

SET CHARACTER LENGTH TO 8 BITS 

SET PROTOCOL TO CCP 

LOAD SYNC REGISTER WITH SYNC CHARACTER (26) 

SET TENA, RENA AND ENABLE INTERNAL SINGLE 

STEP. MAINTENANCE CLOCK 

SET “‘TSOM"* 


STEP MAINT. att UNTIL *"TBMT’’ SETS 

LOAD ag} DATA gad WITH AN STX (2) 

STEP CLOCK AND OUTPUT DATA AND TEST SYNC 

pate RECEIVED (S/F) SETS WITHIN 400 (OCTAL 
* ERROR REPORT IS ERROR 15 

CLEAR ' 


STEP CLOCK AND OUTPUT DATA AND TEST 
PRDA” SETS GITHIN. 400 COCTAL) CLOCK TICKS 
‘ ERROR REPORT IS 
STEP CLOCK, READ RECEIVE DATA BUFFER 
RDA" SETS UNTIL TSA\” SETS 
TEST THAT “TSA™ SETS WITHIN 200° COCTALD 


SEQ 0023 
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CLOCK TICKS 
* ERROR REPORT IS ERROR 36 
TEST THAT ‘‘TERR’* (TRANSMITTER ERROR) IS SET 
* ERROR REPORT IS ERROR 26 


TEST 74: 


TEST 75: 


STEP CLOCK AND TEST SYNC FLAG RECEIVED SETS 
WITHIN 400 (OCTAL) CLOCK TICKS 
* ERROR REPORT IS ERROR 28 


“(RECEIVER OVERRUN TEST FOR CCP MODE) 


THIS TEST WILL FORCE A sa A pg = CONDITION 
BY NOT ti THE SECOND DATA CHARACTER RECEIVED. 
HE “ROR"’ BIT IS READ (SECONDARY REG. 1-BIT 3) 
AND CHECKED FOR BEING CLEAR (RESULT OF 
ORIGINAL READING). 
THIS TEST EXECUTES THE or Eke see SEQUENCE 
ISSUE A MASTER CLEAR SEQUENCE 
SET CHARACTER LENGTH TO 8 BITS 
SET PROTOCOL TO CCP 
LOAD SYNC ADDRESS REGISTER WITH SYNC (26) 
SET TENA, RENA AND ENABLE INTERAL SINGLE 
Lag  BAINTENANCE CLOCK 


SET 

STEP CLOCK 9 TICKS 

CLEAR *‘TSOM'* 

LOAD DATA REGISTER WITH CHARACTER (SOH=1) 
STEP ei See 16 TICKS 


STEP ey F °. TICK 
LOAD 2ND D 5c ea 
STEP Clock 8 ‘3 TICKS 
LOAD 35RD 


DATA CHARACTER 
STEP CLOCK 8 TICK 
READ RECEIVE DATA BUFFER 
LOAD 4TH DATA CHARACTER 
STEP CLOCK 16 TICKS (FORCE RECEIVER OVERRUN) 
TEST THAT “ROR’’ IS NOW SET 
* ERROR REPORT IS ERROR 29 
READ ‘ROR’ 2ND TIME AND TEST BIT 
IS CLEAR 
“ ERROR REPORT IS ERROR 30 


(RECEIVER OVERRUN TEST FOR BOP MODE) 

THIS TEST WILL FORCE A RECEIVER OVERRUN CONDITION BY 
NOT READING THE SECOND DATA eee RECEIVED. THE 
ROR"* BIT IS READ (SECONDARY REG. 1-B1T 

AND CHECKED BOR BEING SET. "THE BIT IS THEN REREAD 
~~ FOR BEING CLEAR (RESULT OF ORIGINAL 


R 
THIS TEST EXECUTES THE FOLLOWING SEQUENCE 
ISSUE A MASTER CLEAR SEQUENCE 
SET CHARACTER LENGTH TO 8 BITS 
- , SET PROTOCOL TO BOP AND ENABLE SECONDARY ADDRESS 


MODE . 

LOAD SYNC REGISTER (SECONDARY 4) WITH A 376. 
SET TENA, RENA AND ENABLE INTERNAL SINGLE 
oe MAINTENANCE CLOCK. 
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TEST 76: 


2 


17:03 
sep C ck TICKS 
CLEAR ttn 
LOAD Regi el DATA BUFFER WITH SECONDARY 
ADDRESS (376) 


STEP ss oon 14 TICKS 
LOAD DATA 47 WITH CONTROL CHARACTER (0) 
STEP CLOCK KS 


LOAD 187 DATA, CHARACTER 
STEP CLOCK 8 Tl 
LOAD OND DATA 
STEP CLOCK 8 TICKS 
LOAD 3RD DATA 
STEP CLOCK 8 TICK 
READ RECEIVE pata BUFFER 
LOAD 4TH DATA CHARACTER 
STEP CLOCK 16 TICKS (FORCE RECEIVER OVERRUN) 
TEST "ROR BIT IS SET. 
. ERROR REPORT 1S, ERROR 29 
REREAD THE "ROR" BIT AND TEST THAT BIT 
WAS CLEARED AND INITIAL READ 
* ERROR REPORT IS ERROR 30 


(TRANSMIT ABORT AND RECEIVE ABORT T 


EST) 
THIS oh an WILL a jy A **TXAB’’ (TRANSMITTER 


WILL TRAN 


SMIT AN ABORT CHARACTER 
AND THE USYRT RECEIVE LOGIC WILL SET THE *'RXAB"’ 


(RECEIVE ABORT) BIT WHEN THE CHARACTER IS 

CLOCKED INTO THE RECEIVER. 

THIS TEST ayes THE FOLLOWING SEQUENCE 
ISSUE A_MASTER CLEAR SEQUENC 
SET PROTOCOL TO BOP AND ENABLE SECONDARY 
ADDRESS E 


MOD 
LOAD SECONDARY ADDRESS REGISTER WITH A 376 
SET TENA, TENA AND ENABLE INTERNAL SINGLE 
gee 


STEP CLOCK 2 TICKS 
CLEAR "TS 
WRITE TRANSMIT DATA BUFFER WITH SECONDARY 
ADDRESS CHARACT 

STEP CLOCK 14 Ticks TO SYNC THE RECEIVE LOGIC 
WRITE TRANSMIT DATA BUFFER WITH CONTR 
CHARACTER (0) 

STEP CLOCK 8 TICKS TO TRANSMIT OUT THE 
CONTROL CHARACTER 

TRANSMIT QUT 3 DATA CHARACTERS (10) 

SET TEOM” AND TAB 

STEP CLOCK 8 TICKS 

READ RECEIVE DATA BUFFER (SECONDARY ADDRESS) 


READ RECEIVE DATA BUFFER (1ST DATA CHARACTER) 
hq FE, Cs Maem H IN ABORT CHARACTER) 


ae BEING SET 
* ERROR REPORT IS ERROR 


‘ 


SE@ 0025 


Pa ee earner 








CZKMDA.P11 
TEST 77: 


TEST 100: 
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(TRANSMIT GO AHEAD AND RECEIVE GO AHEAD TEST (BOP MODE)) 
THIS TEST WILL FORCE A GO AHEAD CONDITION BY SETTING 
THE “"TXGA’ (TRANSMIT GO AHEAD) BIT AFTER THE LOGIC 
ISIN SYNC _AND TESTING THAT THE RECEIVE LOGIC. 
DETECTS THE GO AHEAD CONDITION BY SETTING ‘RXGA 
(RECEIVE GO AHEAD). 
THIS TEST WILL EXECUTE THE FOLLOWING SEQUENCE 

ISSUE A MASTER CLEAR SEQUENCE 

SET PROTOCOL TO BOP AND ENABLE LOOP MODE 

SET TENA, RENAAND ENABLE INTERNAL. SINGLE 

STEP, MAINTENANCE CLOCK 

STEP CLOCK 2 TICKS 

LEAR 'TSOM 

GRITE TRANSMIT DATA BUFFER WITH FIRST 

DATA CHARAC 


TER 
HH CLOCK 14 TICKS (SYNC LOGIC AND XMIT 
FIRST Loe ty 


LOAD 2ND DATA CHARACTER (101) 
STEP CLOCK 8 TIC 

LOAD 3RD DAT. CHARACTER (101) 
STEP. CLOCK "s TICKS 

SET “TEOM” AND it 

STEP CLOCK 8 TICKS (SEND CRC #1) 


a] 
~ 
Mm 
wv 
o 
— 
o 
oOo 
x 
co 
“” 


STEP CLOCK 8 TI 
READ DATA Magi (2ND DATA CHARACTER) 
STEP CLOCK, 9 TIC 
TEST “RXGA™ IS NOW SET 
* ERROR REPORT 18 ERROR 32 


(EXTERNAL DATA LOOP TEST) 
THIS TEST CHECKS THAT THE EXTERNAL DATA LOOP 
AND CLOCK PATH IS ee ney (EXTERNAL DRIVERS 
AND fg ere THE TEST WILL TRANSMI 
RECEIVE A WALKING ONES DATA PATTERN (1 IO 6 200) 
THIS TEST WILL EXECUTE ONLY iF THE OPERA 
HAS ENABLED THE EXTERNAL TEST (CONF 1GURAT TON) 
THIS TEST WILL wlttch ¢ THE FOLLOWING SEQUENCE 
ISSUE MASTER CLEAR SEQUENCE 
SET PROTOCOL TO BOP 
SE1 TENA, RENA AND ENABLE EXTERNAL SINGLE 
1d BAINTENANCE CLOCK 


SE 
STEP CLOCK 2 TICKS 
CLEAR Hr Son 


LOAD TRANS IT DATA BUFFER (CURRENT DATA PATTERN) 
TEP CLOCK AND TEST “‘TBMT’* SETS WITHIN 


CLOCK TICKS 

* ERROR REPORT IS ERROR 13 
TEP CLOCK AND TEST ‘RDA’’ SETS WITHIN 
abies spont kK 

i 


ERROR REPORT IS ERROR 42 
READ RECEIVE DATA BUFFER AND TEST 





SEQ 0026 


a 


CZKMDAO DMS11=DA STATIC 
CZKMDA.P11 20-0CT-81 


TEST 101: 


TEST 102: 


8 3 
macy 30A(1052) 21-OCT-81 09:21 PAGE 27 


DATA CHARACTER IS SAME _AS SENT 
* ERROR REPORT IS ERROR 23 


ef TRANSMITTER — CHECK TEST) 


: PR SET BY 
Sa ies aan A DATA MESSAGE WITH TRANSMIT CHECK MODE 
ENABLED AND AN ILLEGAL CRC-32 CODE APPENDED TO THE 

DATA MESSAGE. 


THE DATA WORD TRANSMITTED IS A dh OF ALL ZEROS 
AND THE APPENDED 32 BIT CRC IS A 
THIS TEST EXECUTES ONLY _IF EXT. TESTS ARE CONFIGURED 
THIS TEST WILL Bets THE FOLLOWING SEQUENCE 
ISSUE A MASTER CLEAR SEQUENCE 
SET S Porth TO BOP AND DISABLE USYRT ERROR 


aS “vet IONS 
ENABLE CRC-32 seyE CHECK MODE (PRI13-BIT 5) 
TEST THAT 6 BITS 1 & 2 OF PRIMARY REGISTER 14 


ET. 
* ERROR REPORT IS ERROR 38 
SET TENA, RENA ENABLE CRC=32 (CHECK MODE) 
AND ENABLE EXTERNAL SINGLE STEP MAINT. CLOCK 


S 
STEP Chock 2 TICKS 
CLEAR “TSOM" 


SEQUENCE TO TRANSMIT THE DATA BYTE 
AND 2 CRC BYTES, STEPPING CLOCK 8 TICKS 
FOR EACH AND TESTING *‘TBMT'’ SETS 
* ERROR REPORT IS ERROR 13 
SET *'TEOM’’ 


STEP CLOCK 17 17 TICKS 
TEST “‘TCRCE’’ IS senon't "RCRCE"’ IS CLEAR 


Ss 
FIRST TIME THROUGH TEST CHECK tye 
CLEARS BY WRITING ha ~4 yy WITH A ONE. 


* ERROR REPORT IS ERR 
SECOND TIME. THROUGH TEST CHECK “'TCRCE"” 
CLEARS BY ISSUING A LINE RESET. 

. ERROR REPORT IS ERROR 38 


(CRC~32 RECEIVER ERROR CHECK TEST) 

THIS TEST WILL rey THAT RECEIVE CHECK 

RROR FLAG (PRI14-B1T 1) WILL SET BY TRANSMITTING 
) THAN APPENDED CRC~32 

gpinad na CRC LOGIC PLACED IN 


Ck MODE (NON~ TE). 
THIS TEST WILL EXECUTE ONLY IF EXTERNAL TEST ARE 
NABLED (CONFIGURATION) 
THIS TEST WILL EXECUTE THE FOLLOWING SEQUENCE 

ISSUE A MASTER CLEAR SEQUENCE 

SET PROTOCOL TO BOP AND DISABLE USYRT 

ERROR CHECK FUNCTIONS 

TEST THAT “TCRCE’’ AND ‘RCRCE" ARE NOT SET 
* ERROR REPORT. 1S ERROR. 3 

SET TENA, RENA AND ENABLE CRC-32 

AND EXTERNAL SINGLE STEP MAINTENANCE CLOCK. 


SEQ 0027 


CZKMDAO DMS11-DA sree C 
CZKMDA.P11 20-0CT-81 


TEST 103: 


TEST 104: 


C 
™ macntt 30A(1052) 21-OCT-81 09:21 PAGE 28 
Sfep ¢ ock TICKS 
CLEAR Atte 
TRANSMIT THE DATA CHARACTER AND 4 CRC-32 
A TESTING. AFTER — CHARACTER CLOCKED 


* ERROR REPORT IS ERROR "3 
SET ‘’TEOM"’ 
CLOCK che N 4 sage He (READ DATA REG. AFTER 
EACH CHARACTER RECEIVED) 
TEST FRORCE™ (PRI 14-17 1) IS SET 
* ERROR REPORT IS ERROR 3 


FIRS; TIME THROUGH TEST CHECK ‘'RCRCE" 
IS CLEANED BY WRITING THE BIT WITH A ONE 
* ERROR REPORT IS ERROR 38 i ok 
SECOND TIME THROUGH TEST CHECK “TCRCE 
IS CLEANED BY ISSUING A LINE RESET. 
* ERROR REPORT IS ERROR 38 


(CRC-32 NON-ERROR TRANSMIT & RECEIVE TEST) 

THIS TEST WILL CHECK A NON-ERROR CRC RECEIVE 

CHECK AND NON-ERROR TRANSMIT CHECK BY TRANSMITTING 
A_DATA STREAM (NON-GENERA “ee WITH A PRECALCULATED 
CRC-32 a ee THE DATA STREAM CONSISTS OF 
WALKING A ONE ACCROSS 16 BITS (1 TO 100000). 

THIS TEST EXECUTES ONLY OF THE EXTERNAL DATA TESTS 
E ENABLED GURAT ION) 


AR (CONF I ON 
THIS TEST EXECUTES THE FOLLOWING SEQUENCE 
ISSUE A_MAST SEQU 


ER CLEAR NC 
SET PROTOCOL TO BOP AND DISABLE USYRT 
ERROR CHECKING 
SET CRC-52 TO TRANSMIT CHECK MODE 
SET TENA, DE E CRC-32 AND 


XTE L E 
TEST THAT ‘'TCRCE’* AND ‘'RCRCE’’ ARE NOT SET 
* op eee IS ERROR 38 


SET 

STEP CLOCK 2 TICKS 

CLEAR ‘‘TSOM"’ 

SEQU NCE TO say AND RECEIVE THE DATA AND 


RS cae te THE CHARACTERS 


CHARACT 
RECEIVE WITHIN 11 CLOCK T 
REPORT 


ERROR RE IS ERR 1 
TEST THAT ‘'TCRCE’’ AND ‘'RCRCE’* ARE NOT SET 
* ERROR REPORT IS ERROR 39 


he TEST FOR EACH DATA VALUE AND CALCULATED 


(CRC-32 TRANSMIT GENERATE TEST) 

THIS TEST Be CHECK CRC-32 TRANSMIT GENERATE BY 
eee HHEL,. A ONE WORD BUFFER OF A WALKING ONE 
(1 T 100000) DATA PATTERN AND CHECKING THE 
RECEIVED cRC32 

THIS TEST WILL EXECUTE ONLY IF EXTERNAL TESTS 


SEQ 0028 


CZKMDAO DMS11-DA STAT : MACY11 30A(1052) 21-OCT-81 09:21 PAGE 29° ‘ 
CZKMDA.P11 20-0CT 17:03 SEQ 0029 


ARE ENABLED (CONFIGURATION) 
THIS TEST WILL EXECUTE THE FOLLOWING SEQUENCE 
ISSUE A_MASTER CLEAR SEQUENC 
Fecrane. OCOL TO BOP AND DISABLE USYRT ERROR 


TE 
SET TENA ENABLE cCRC-32 AND EXTERNAL 
SINGLE eter” MAINTENANCE CLOCK 
SET TRANSMIT GENERATE MODE 
TEST "'TRCRE’’ AND 'RCRCE'' ARE NOT SET 
* ERROR REPORT IS ERROR 39 
SET ‘'TSOM’ 
STEP CLOCK 2 TICKS 
CLEAR ‘TS 
SEQUENCE TO TO gutpur 2 DATA CHARACTERS 


AND _R DATA CHARACTER 
4 CRC BYTES (SETTING AND CLEARING 
“TEOM’’ AT IA ORING 


APPROPRIATE TIMES) AND MONIT 
NOT MORE THAN 11 CLOCKS TICKS ARE REQUIRED 
FOR EACH CHARACTER 


a 
m 


* ERROR REPORT IS ERROR 4 
TEST THAT GENERATED eRe-32 IS SAME AS CALCULATED 
* ERROR REPORT IS ERROR 40 


REPEAT TEST FOR EACH DATA VALUE. 





3 
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CZKMDA.P11 20-0CT 


AREA AAAAAAAAAAAAAAAAAAAAAAEAAAERAARAARERAARAAERAAEAERAERERERAEARRRERKEE 


pn FOLLOWING ARE THE ASSOCIATED ERRORS (NUMBERED) 
AND THEIR DATA HEADER STATEMENTS. 


ERROR) :PRIMARY REGISTER ERROR 

ERROR2:FLOATING ONE*S ERROR 

ERROR 4 yey REGISTER READ ERROR 

ERROR4: THE FOLLOWING READ ONLY BIT CAN BE WRITTEN 
ERRORS : TRANSMIT ae REGISTER BIT FAILURE 
CONTROL REGIS BIT FA 


SEQ 0030 


ER CTER L Ss IT FAILURE 
ERRORS: TRANSMIT STATUS REGISTER BIT FAILED TO CLEAR AFTER LINE RESET 
ERROR9:MODE CONTROL eaeat cee FarLee TO CLEAR AFTER LINE RESET 


ERROR ED TO 

ERROR14:S/F DID NOT SET AFTER FLAG SENT 

ERROR15:S/F DID | SET AFTER SYNC SENT 

ERROR16:S/F DID NOT RESET 

ERROR17:RAC FAILED "0 SET AFTER 3 DATA BYTES TRANSMITTED 
ERROR18:RDA FAILED TO SET AFTER 3 DATA BYTES TRANSFERED 
ERROR19:RSOM FAILED TO SET 

ERROR2O:FIRST DATA BYTE TRANSMITTED IN ERROR 
ERROR21:REOM FAILED TO SET AFTER TE 

ERROR22:LINE FAJLED TO RESYNC AFTER TEOM SET WITH IDLE RESET 
ERROR23:DATA TRANSMITTED INCORRECTLY 

enone?! ERROR CHECK BIT FAILED TO SET 


RANSMIT ERROR ON A FORCE UNDERRUN 

ROR27:NO ABORT INDICATIONS RECEIVED ON A FORCE UNDERRUN 

LINE DID NOT RESYNCE ON A FORCE UNDERRUN 

EIVER OVERRUN DID NOT SET ON A FORCE OVERRUN 

EIVER OVERRUN DID NOT RESET AFTER STAUS READ 

R RECEIVE ABORT ON A TRANSMIT OF A ABORT 

ERROR32:NO RECEIVE GO AHEAD ON A TRANSMIT OF GO AHEAD 

ERRORSS:DEVICE IS STILL TRYING TO SYNC 

ERROR34:THE KMC11 IS HUNG 

ERROR35:NO S/F AFTER TEOM WAS SET 

ERROR36:S/F SET BEFORE LAST DATA BYTE RECEIVED 

ERROR37:RSA DID NOT SET ON A TRANSMIT UNDERRUN 

R ERROR STATUS BITS (PR14~182) 
32 TRANSFER CAUSED STATUS ERROR 

GENERATED IS NOT CORRECT 
ERROR41: TRANSFER INCOMPLETE 
ERROR42:"RDA’’ FAILED TO SET ON DATA TRANSFER 


THE FOLLOWING FOUR FIELDS ARE PESENT IN EVERY ERROR MESSAGE. 


NE 


LI 
ILING LINE (0-7) 


TEST PC KMC11 
(OCTAL # OF FAILING TEST) (PROGRAM ADDR. OF ERROR) (1-16) # OF CONFIGURED UNIT) (# OF FA 


THE FOLLOWING DESCRIBES THE OTHER POTENTIAL DATA AND STATUS FIELDS OF THE ERROR REPORTS. 


F 
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CZKMDAO past i=p4 STATIC MACY] 

CZKMDA.P11 0-OCT-81 17:03 
REG = NUMBER OF FAILING REGISTER AS ADDRESSED BY KMC11. 
EXP = VAUE OF EXPECTED DATA OR STATUS 
REC = VALUE OF RECEIVED OR READ DATA OR STATUS 


PRI12 = CONTENTS OF PRIMARY REGISTER 12 

CRC-HI = HI ORDER 16 BITS OF CALCULATED CRC-32 

CRC=LO = LOW ORDER 16 BITS OF CALCULATED CRC-32 

PRI14 = VALUE OF PRI14 (LINE UNIT STATUS) 

PRI14(SHBE) = STATUS VALUE THAT PRIMARY REG 14 SHOULD BE 


SHBE-HI 


CALCULATED HIGH ORDER 16 BITS OF CRC-32 


SHBE-LO = CALCULATED LOW ORDER 16 BITS OF CRC-32 
WAS-HI = RECEIVER HIGH ORDER 16 BITS OF CRC-32 
WAS-LO = RECEIVED LOW ORDER 16 BITS OF CRC-32 
DATA = DATA WORD TRANSMITTED 


8.0 


DIAGNOSTIC LISTING 


SEQ 0031 


G 
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Z 
CZKMDA.P11 


-ENABL ABS AMA 
-NLIST MD,.MC,CND 


SEQ,LOC BIN 
ME 


SEQ 0032 


CEKMDALP SEQ 0033 


J AARAAARAAAAAARRAEREREEEEEERERERERREEERAEERERREREEREREREREREE 


START OF STATIC TEST LISTING 


6 : 
6 1 FERRARA RARAREEEREREREEEEEEEREEREREREERAEERAEEREREEERRREREREE 


— 3 I 
co 


I 3 
CZKMDAO DMS11=DA STATIC MACY11 30A(1052) 21-OCT-81 09:21 PAGE 34 
CZKMDA.P11 “0-c1 t8i TOS 


1632 


SEQ 0034 


53 | 
CZKMDAO_DMS11=DA STATIC MACY11 30A(1052) 21-OCT-81 09:21 PAGE 35 
CHEMDALPTT o0=OCT-81 17508 SEQ 0035 


ss 
AAO 


3 ° 
11=DA STATIC MACYI1 (1052) 21-OCT-81 09:21 PAGE 36" 
IKMOA.PIT 20-Oct-81 703, Sea 0036 


ace § 


L 3 
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CZKMDAO DMS11=DA STATIC MACY1 
CZKMDA.P11 20-OCT-81 17:03 SEQ 0037 
1640 .LIST $EQ,LOC,BIN 
1641 ~ENABL 
lose “NLIST MC,MD,CND 
164 LIST 
1644 -TITLE CZKMDAO DMS11-DA STATIC 
1645 :*COPYRIGHT (C) 1981 
1646 [*DIGITAL EQUIPMENT CORP. 
1667 :*MAYNARD, MASS. 01754 
3* 
1649 7*PROGRAM BY RAY BALDWIN/R. J. COLLINS 
3* 
1651 7*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
163¢ [PACKAGE (MAINDEC-11-DZQAC-C5), JAN, 1981. 
** 
1654 000001 $TN=1 
1655 160000 $SWR=160000 ::HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
1656 ~SBTTL BASIC DEFINITIONS 
1658 Z*INITIAL ADDRESS OF THE STACK POINTER *** 1100 see 
1659 001100 STACK= 1100 
1660 -EQUIV EMT,ERROR ::BASIC DEFINITION OF ERROR CALL 
1661 -EQUIV 10T,SCOPE ::BASIC DEFINITION OF SCOPE CALL 
1663 :*MISCELLANEOUS DEFINITIONS 
1664 000011 T= 11 7: CODE FOR HORIZONTAL TAB 
1665 000012 LF= 12 ::CODE FOR LINE FEED 
1666 000015 CR= 15 ::CODE FOR CARRIAGE RETURN 
1667 000200 CRLF= 200 ::CODE FOR CARRIAGE RETURN-LINE FEED 
1668 177776 PS= 177776 ::PROCESSOR STATUS WORD 
1669 .EQUIV PS,PSW 
1670 177774 STKLMT= 177774 rzSTACK LIMIT REGISTER 
1671 177772 PIRQ= 177772 ::PROGRAM INTERRUPT REQUEST REGISTER 
167, 177570 DSWR= 177570 S:MARDWARE SWITCH REGISTER 
1673 177570 DDISP= 177570 T:HARDWARE DISPLAY REGISTER 
1675 s*GENERAL PURPOSE REGISTER DEFINITIONS 
1676 RO= 3: REGISTER 
1677 000001 R1= 21 GENERAL REGISTER 
1678 00000 R2= % T:GENERAL REGISTE 
1679 00000 R3= z 33 REGISTER 
1680 000004 R4= 14 [:GENF AL REGISTER 
1681 000005 R5= 25 7:GEM .AL REGISTER 
1682 900006 R6= % *:GE’ RAL REGISTER 
168 00000 R7= % 72GE.6ERAL REGISTER 
1684 000006 SP= % +: STACK POINTER 
1685 00000 PC= z TPR TE 
1659 :*PRIORITY LEVEL DEFINITION 
1688 000000 PRo= 0 ::PRIORITY LEVEL 0 
1689 000040 PRi= 40 ‘PRIORITY LEVEL 1 
1690 000100 PR2= 100 ::PRIORITY LEVEL é 
1691 000140 PR3= —s-- 140 ::PRIORITY LEVEL 
1698 000200 PR4= 00 ::PRIORITY LEVEL 4 
169 000240 PRS5= 4 +: PRIORITY LEVEL 5 
1694 000 PR6= 00 ‘PRIORITY LEVEL 6 
1695 000340 PR7= 40 *:PRIORITY LEVEL 


SEQ 0038 


5 
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21-OCT-81 09:21 
BASIC DEFINITIONS 


ue MACY11 30A(1052) 
1 17:03 


CZKMDAO DMS11=DA STA 
20-0CT 


CZKMDA.P11 


AOr OWN TMC O 

ee 

$3393 qaaaateatee 

nnndadam QQQ]Q0Q00082 
% 


T DEFINITIONS (BIT00 TO 81115) 


S888ecc_. S5sssous 
me FN IN IN PN Te OODODODOODOOO® 


3 2 al SWITCH DEFINITIONS 


PNK PNM INR TNE Te 


tnunnnnnnunnnnnnnnnsea>>>>>>>> 
Sooooocooo 22 


BE gy ag ay ee at gy at ag ee ey ee eg ag a LL 
*@MDODODOODDOODOMDOOOOO®D: =: > 


WITC 
= 


* 
SSS88ees.., § 


-EQUIV SWO1,SW1 


-EQUIV SW00,SWO 


«’ 
tune 
SW14= 
SW13= 
SW12= 
SW11= 
$w10= 
Sw09= 


Sstesccdessiesee Sstesccdlelesee 


ESSES 
Ooo BOSS SSS SS oe Nee TP RANNAON ARNE NMMMMMM OS TIRES SEI OO 
A ee eel cee cel ceed ced eel cel eel ell cell elk cell cell gel cell cool cel eel cell lh lh mel ook ol See el cee eel eel cee eel el cel cel cel cee el el eel el ee cel el cee gel cel ce el el el eel eel el ell cel 






n 3 
¥11 30A(1052) 21-OCT-81 09:21 PAGE 39 
17:03 BASIC DEFINITIONS SEQ 0039 


175 

1738 :*BASIC “CPU TRAP VECTOR ADDRESSES 

1754 000004 ERRVEC= 4 TIME OUT AND OTHER ERRORS 

1755 10 RESVEC= 10 : 3RESERVED AND ILLEGAL INSTRUCTIONS 
1736 14 TeITVEC=14 ::°T" BIT 

175 14 TRIVEC= 14 ETRACE TRAP 

1738 14 BPTVEC= 14 3 BRE 

175 900020 IOTVEC= 20 : INPUT OUTPUT TRAP (10T) **SCOPE** 
1760 4 VEC= R FAIL 

1761 0000 EMTVEC= 30 :ZERULATOR TRAP (EMT) **ERROR** 
1762 000034 VEC= "TRAP TRAP 

1765 000060 TKVEC= 60 TTY KEYBOARD VECTOR 

1764 TPVEC= 64 SETTY PRINTER VECT 

1765 240 PIRQVEC=240 : PROGRAM INTERRUPT REQUEST VECTOR 
1766 163400 $SWR=163400 

1767 000001 = 

1768 000001 =1 







OS 


8 
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CZKMDA.P11 20-C 1-81 17:03 RAP CATCHER SEQ 0040 


1768 -SBTTL TRAP CATCHER 

771 900000 =0 

177 z sALt, UNUSED Pouse OF THE VECTOR AREA CONTAIN 

177 +2, JOT’ SEQUENCE TO CATCH AND PROCESS ILLEGAL 

1774 STRAPS AND INTERRUPTS THAT MIGHT OC 

1775 *THE IOT TRAP WHICH IS TAKEN ON THE ILLEGAL TRAP/INT 

177 s*TRAPS TO THE SSCOPE ROUTINE WHICH (IF THE RETURN PC IS 
177 2*LESS THAN 1002) S$ TO SE . 

1778 z*THE SERROR ROUTINE WILL REPORT THE ERROR AS FOLLOWS 

1 PC=VYYYYY UNEXPECTED TRAP TO X 

1780 3*AND RETURN TO THE PROGRAM AT PC=YYYYYY+2 

1781 ; WHERE XXX= se be * ILLEGAL TRAP 

1782 YYYYYY=PC AT TIME OF TRAP 

1783 jaNOTE IF THE PROCESSOR IS NOT AN 11/05 THE PROGRAM 

ire se CAN BE STARTED AT ADDRESS 0 AS WELL AS ADDRESS 200. 
1786 000000 000000 $40CAT: HALT sHALT 

ier 000002 000737 BR -7100 :7BRANCH TO 177700 & TIME OUT (NOT ON 
1789 000004 002004 «WORD START 3:VECTOR TO STARTING ADDRESS 
1790 000006 000340 WORD 340 z:WITH PRIORITY LEVEL 7 
1791 000174 -=174 

1792 000174 000000 DISPREG:.WORD 0 2 SOFTWARE DISPLAY REGISTER 
1793 000176 000000 SWREG: .WORD 0 22SOFTWARE SWITCH REGISTER 
1794 -SBTTL STARTING ADDRES(ES) 

1795 000200 000137 002004 JMP a4. START 3:G0 TO START OF PROGRAM 





s 
3 


K 


a3 
Rag 
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P11 20-0CT-81 17:03 COMMON TAGS 


On 


-SBTTL COMMON TAGS 
5 ERRRRRARARARAERERERERERE TERRA RARER EREREREREERERERERERERERE REESE 


[*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 


;;START OF COMMON TAGS 
33 PAS 


Bee SoSaxcssese 


ssssessesssssssss ssesssssssssssessssssssssssssss 


:3 E FLAG 

2sCONTAINS SUBTEST ITERATION COUNT 
::CONTAINS SCOPE LOOP ADDRESS 
;;CONTAINS SCOPE R 


zsCONTAINS ADDRESS OF ‘BAD’ DATA 
3:CONTAINS ‘GOOD’ DATA 
2sCONTAINS *BAD’ DATA 

2 sRESERVED--NOT TO BE USED 

3 sAUTOMATIC MODE INDICATOR 

zs INTERRUPT MODE INDICATOR 


2ADDRESS OF SWITCH REGISTER 
2sADDRESS OF DISPLAY REGISTER 
TTY KBD STATUS 


ze KBD BUFFER 
zsTTY PRINTER STATUS REG. ADDRESS 
zeTTY ae gp oll gett - REG. ADDRESS 


00 00 Cd Co G9 Gp Cd Cd Co CO 
at ot 
WONAULSWN—O 


8 
BoOoooooooooe~Goooooees 


ataatatete 
CONAUSWA 
=e 
wv 


Nm 


HARS. AFTER A “LINE FEED 
ae INAL_AVAILABLE’’ FLAG (B1T<07>=0=YES) 
23CONTAINS THE ADDRESS FROM 
;sWHICH (S$REGO) WAS OBTAINED 

EGAD) +0) 


etetett 


{ 
( 
( 
( 
( 
( 
( 
( 


2.92.90 2 FO GO 90 G0 go 9.00 00 00 d0 00 O0 0 Go Go Go 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


GoOCOOOOOoooooooo OCO—WO 


STMP7: “WORD 
STMP10: :WORD 


ooo 
ww 
_= 





3 
5 


fale) 
33 
a» 


vw 


Near 


wMviw 
ooo 


Sere reRes 


ee a kk a kk kk a a ed ed ed 
SSNs 
MEWN—O”O 


—— 
S833 
Ono 


SESESEESES 


200 09 Co Co Co Co 
SESSSEESIES 


at es ss ss SS wt st ee et et 
SSSSSSS333 
MEW 


g 


0 
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COMMON TAGS 


$TMP11: .WORD 0 ZUSER DEFINED 
SESCAPE :0 ZZESCAPE ON ERROR ADDRESS 
SBELL: .ASCIZ <207><377><377> ;;CODE FOR BELL 
S$QUES: ASCII /2/ S:QUESTION MARK 
SCRLF: .ASCII <i5> T: CARRIAGE RETURN 
: CIlz <12 :: FEED 


LF: ° ee 
FE RAAAAEAARARAAAAREREEREEEEREREEAERARARERREAEREREEEEEREREREERREREEE 


: PROGRAM CONTROL PARAMETERS 


“ROVAR: 


ABCC=B1T6 
ERRCK=B1T7 
TEOM=81T1 
XAB=B1T 
=B1T 


TERR=B81T 
PROTEX=81T0 


CZKMDAO DMS11=DA STAT 
CZKMDA.P11 20-0CT 
1908 000002 
909 000004 
910 000010 
911 000020 
aig 000040 
91 000100 
914 000200 
915 000001 
916 000002 
917 000004 
918 000010 
919 000020 
920 000040 
921 000100 
922 000200 
923 000001 
924 005227 
925 000007 
926 000026 
927 000002 
928 000001 
929 000004 
930 000003 
931 000001 
o36 000002 
93 000004 


RRARRARANAALEEEELEL EL AAA 
WOONAUS WN SO OBNAUESWN 0 COONAU 


pes 


me at me tk et a ek a at ed a th tt dd a ts a ns st ss tt 
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COMMON TAGS 


PROTEY=81T1 
PROTEZ=B1T2 
NIDLE=81T3 
SAM=8 


APA=8I1T 
RDATA1=B81T0 
RDATA2=81T1 
RDATAS=B1T2 
EXCON=81T3 


EXADD=B1T4 
TDATA1=81T5 


TLOCK=81T3 


OT ee ee ee ee ee ee 

UEWIN Oo 
rh ft NOAWMSWN—oS 
ed ed ad ed ed ad 
NOUSWN oO 


Wwrm—onhnnhin tt 


SEL6=6 
BSELO=0 


SEQ 0043 
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CZKMDA.P11 20-OCT-81 17:03 SEQ 0044 
1964 000001 BSEL1=1 
1965 00000 BSEL¢=¢ 
1966 00000 BSEL3= 
196 000004 BSEL4=4 
1968 600096 Betteng 
1390 Mitddih peel ons 
1971 000010 ECRC=B1T3 
1972 000040 CRCHK=81 
19 000004 TCRCE=BIT2 
1974 000002 RCRCE=B1T1 
1975 ;___ PROGRAM 
1907 001240 000000 REGIST: _ ae :REGISTER NUMBER STORAGE FOR TYPE OUT 
1979 001242 .ROEND: 
1981 001242 000000 LI -WORD 0 :CURRENT LINE POINTER 
1982 001244 000000 CLINED: .WORD 0 = CURRENT LINE POINTER DECIMAL 
1983 001246 000000 SDVICE: .WORD 0 : CURRENT DEVICE # 
1984 001250 000001 CMFLAG: .WORD BITO PROGRAM COMMAND FLAG 
1985 001252 000000 NXTLIN: .WORD 0 “FLAG FOR NEXT LINE TO BE TESTED 
1986 001254 000000 LI .WORD 0 ZHOLDS LINES ENABLED 
1987 001256 000000 CRC32F: .WORD 0 :CRC-32 FLA 
1988 001260 000000 CLKDAT: .WORD 0 ING EXT FLAG 
1989 001262 000000 TST .WORD 0 :TEST # FOR ERROR REPORT 


G 
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1990 .SBTTL ERROR POINTER TABLE 
1998 :*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
199 NFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
1994 {LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE [S PERTINENT. 
1995 *NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERR 
138 + *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EAPLAINED AS FOLLOWS: 
1998 3* EM z:POINTS TO THE ERROR MESSAGE 
1999 3* DH ::POINTS TO THE DATA HEADER 
7* DT :zPOINTS TO THE DATA 

1 3* OF + POINTS TO THE DATA FORMAT 
$008 
2004 001264 SERRTB: 
2005 sBCRAD eae TABLE 
2006 001264 BCRAD.ERTBL: 

? 1264 035124 040140 040624 EM1,DH1,DT1,DF1 

001272 041012 

2009 001274 035153 040140 040624 EM2,DH1,DT1,DF1 
2010 001302 041012 
2011 001 953200 040140 040624 EM3,DH1,DT1,DF1 
2018 001312 04101 
2013 001314 035236 040140 040624 EM4,DH1,DT1,DF1 
2014 001322 041012 
3015 001324 035311 040216 040644 EMS ,DH2,DT2,DF2 
2016 001332 041022 
2017 001334 035356 040216 040644 EM6,DH2,DT2,DF2 
2018 001342 041022 ‘ 
2019 001344 035420 040216 040644 EM7,DH2,DT2,DF2 
2020 001352 041022 
2021 001354 035466 040216 040644 EM8,DH2,DT2,DF2 
2022 001362 04102 
2023 001364 035564 040216 040644 EM9,DH2,DT2,DF2 
2024 001372 041022 
2025 001374 035657 040140 040624 EM10,DH1,DT1,DF1 
2026 001402 041012 
3027 001404 035726 040140 040624 EM11,DH1,DT1,DF1 
2028 001412 041012 
2029 001414 036010 040216 040662 EM12,DH2,DT3,DF2 
$034 por aoe psobee 040216 040662 EM13,DH2,DT3,DF2 
CBS hE sant tne EPpy 

34 001442 041022 ~ 

35 001444 036147 040216 040662 EM15,DH2,DT3,DF2 
soae pode 886509 040216 040662 EM16,DH2,DT3,DF2 
CBC A Been iors), paamgtpcaagee 
2040 601493 041022 eee, 
2061 001474 iat? 040216 040662 EM18,DH2,DT3,DF2 
2043 001504 036 040216 040662 EM19,DH2,DT3,DF2 

4 001512 04102 

5 001514 036415 040216 040644 EM20,DH2,DT2,DF2 
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040216 
040322 
040216 
040216 
040216 
040266 
040266 
040266 
040266 
040266 
040266 
040266 
040322 
040266 
040322 
040322 
040322 
040366 
040436 
040526 
040266 
040216 
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040662 
040712 
040644 
040662 
040662 
040700 
040700 
040700 
040700 
040700 
040700 
040700 
040712 
040700 
040712 
040712 
040712 
040726 
040744 
040766 
040700 
040662 
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ERROR POINTER TABLE 


EM21,DH2,DT3,DF2 
EM22,DHS DTS DFS 
EM23,DH2,DT2,DF2 
EM24 ,DH2,DT3,DF2 
EM25 ,DH2,DT3,DF2 
EM26,DH4.DT4 ,DF4 
EM27 .DH4,DT4 ,DF4 
EM28 ,DH4 ,DT4,DF4 
EM29,DH4 ,DT4 ,DF4 
EM30,DH4,DT4 ,DF4 
EM31,DH4,DT4 ,DF4 
EM32,DH4 .DT4 ,DF4 
EM33,DH5 DTS DFS 
EM34 ,DH4 ,.DT4 ,.DF4 
EM35 ,DHS DTS DFS 
EM36,.DH5 DTS .DF5 
EM37 ,DH5.DT5 DFS 
EM38 ,DH6,.DT6,DF6 
EM39,DH7,DT7,DF7 
EM40,DH8,DT8,DF1 
EM41,DH4,DT4,DF4 
EM42,DH2,DT3,DF2 


4 


SEQ 0046 


I 
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CZKMDA.P11 20-OCT-81 17:03 ERROR POINTER TABLE SEQ 0047 
43) Peete ROUT INE 
3 $3004 “BEGIN: ;CLEAN UP THE REST OF 3 a TABLE 


“SBTTL. INITIALIZE THE COMMON T 






[CLEAR THE COMMON TAGS CSCRTAG) AREA 
902004 12706 001100 MOV #SCNTA AGRO zsEIRST LOCATION TO BE CLEARED 
19 026 CLR (R6)+ ::CLEAR MEMORY LOCATION 
2012 022706 001140 CMP wu. R6 — 
16 001374 z;LOOP BACK IF NO 

100 002020 012706 001100 t:SETUP THE STACK POINTER 
192 002024 012737 043564 000020 ss INITIALIZE . rey sie fon Cc: :10T CTOR FOR SCOPE ROUTINE 
198 00 88 O187 7 340 O000e8 mov #34 Sinrure 7: LEVE 
104 002040 oi 7 043114 0000 MOV #SERROR ,A#EMTVEC TEM, CTOR FOR ERROR ROUTINE 
105 002046 012737 000340 000032 MOV #350, OeEATVECS 
106 002054 012737 050052 000034 MOV #STRAP , aA TRAP c UERAP VECTOR FOR TRAP CALLS 
10 902062 1673? 00034 MOV #540. aA TRAPVECS iit VEL 7 
108 002070 013737 053036 035030 MOV SENDCT,SEOPCT :;SETUP END-OF-PROGRAM COUNTER 
2109 002076 005037 001226 CLR SESCAPE Z3CLEAR THE ESCAPE x ERROR ADDRESS 
3110 00210, M273? 000001 001115 MOVB #1,SERMAX ONE ERROR PE 
111 002110 012737 002110 001106 MOV 4. «SLPADR INITIALIZE | THE He” LOOP ADDRESS FOR SCOPE 
gi1¢ 002116 012737 002116 001110 MOV *SLPERR °§ ESS 
11 z3SIZE FOR A HARDUARE SWITCH REGISTER. IF nor FOUND OR I 
114 S:EQUAL TO A “=1"', SETUP FOR A SOFTWARE SWITCH REGISTER. 
115 002124 013746 000004 MOV afERRVEC (SP) Z:SAVE ERROR VECTOR 
2116 002130 012737 002164 000004 MOV S apcRRvE t:SET UP ERROR VECTOR 
2117 002136 012737 177570 001140 MOV oosak SUR 33 SETUP FOR A HARDWARE SWICH REGISTER 
2118 002144 012737 177570 001142 MOV mBSuh SUR [AND A HARDWARE DISPLAY REGISTER 
2119 002152 022777 177777 176760 CMP #1, aSUR T:TRY TO REFERENCE HARDWARE SwR 
120 002160 001012 BNE 66$ ; BRANCH IF NO TIMEOUT TRAP OCCURRED 
2121 THE HARDWARE SWR IS NOT = -1 
2122 002162 000403 BR 65$ ::BRANCH IF NO TIMEOUT 
123 002164 012716 002172 64S: Moy #65$, (SP) t:SET UP FOR TRAP RETURN 
2125 002172 O1o089 000176 001140 65$: MOV #SUR z:POINT TO SOFTWARE SWR 
2126 002200 012737 000174 001142 MOV ap ispnée b LAY 
ele 002206 012637 000004 66$: MOV (SP) + aFERRVEE Z:RESTORE ERROR VECTOR 
2129 -SBTTL TYPE PROGRAM NAME 
3130 TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
131 002212 005227 177777 INC #1 3sFIRST TIME? 
13¢ 002216 001041 BNE 675 ‘BRANCH IF NO 
133 002220 022737 035070 000042 CMP ASENDAD ,a#42 SiACT 112 
134 002286 1435 BEQ 67s (CH IF YES 
135 002230 104401 002266 TYPE PE ASCIZ STRING 
136 .SBTTL GET vatue’ FoR SOF TWARE side REGISTER 
137 002234 005737 000042 st arse Z2ARE We RUNNING UNDER XXDP/ACT? 
2139 00224 Ooseo9 001140 000176 CMP Su SURES 3 3 SOF TWARE SWITCH REG SELECTED? 
140 002250 001005 BNE 0$ c 
141 002252 1044 GTSwR tIGET SOFT-SWR SETTINGS 
14e 002254 00040 BR 70$ 
143 002 56 112737 000001 001134 698: MOVB «#1, SAUTOB r:SET AUTO-MODE INDICATOR 
145 002264 000416 BR 67$ GET OVER THE ASCIZ 
2146 7:68$: .ASCIZ <CRLF>#CZKMDAO phi tba STATIC #<CRLF> 
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MACY11 30A(1052) oes occ 09:21 PAGE 48 
17:0 VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0048 
67$: 
046542 JSR PC.$SIZE 
47 JSR SfACK SP < K<K<KKK<e 
ou .MONIT: MOV sis 
177776 MOV 
boo8s 5 TYPE i: TYPE ASCIZ STRING 
BR ie QVER THE ASCIZ 
ii$58* VASCIZ <15><12>/(1)DIAG. FEET C )CONFIGURATION / 
RDOCT 
MOV (SP)+,RO 
000001 CMP #1,R0 :LOGIC TEST? 
BEQ LOOP 
000002 CMP #2,R0 :G0 TO LOGIC TEST LOOP 
BNE $ = CONF IGURAT 
041134 JSR PC ,MODTAB :MODIFY THE CONFIGURATION ROUTINE 
- BR MONIT 
002446 TYPE 67$ ri: TYPE ASCIZ STRING 
BR $ +:GET OVER THE ASCIZ 
-:67$: .ASCIZ 2? 
66S: 
BR .MONIT 
sSTATIC TEST LOOPING ROUTINE 
001100 LOOP: MoV #STACK SP 
000340 177776 BICB 430s #340, PS :<--<<< ALLOW INTS. 
001250 CLR CMF LAG 
001242 CLR CLINE 
001244 CLR CLI 
001246 CLR SDVICE 
042460 041070 van MOV #KMCTAB-6, CURTAB 
042630 JSR PC, GETKMC 
BR 1$ :B= NO KMCS ENABLED 
BR CYCLE 
041064 1$: TST KMCNT z1S THERE KMC'S ENABLED 
BEQ 2$ :B=NO 
035006 - JMP SEOP 
002542 TYPE 65$ zTYPE ASCIZ. STRING 
4$ [GET OVER THE ASCIZ 
ij658: "ASCIZ <15><12>/NO UNITS ENABLED/ 
041134 JSR PC ,MODTAB zSET UP CONFIGURATION TABLE 
002452 one JMP LOOP NOW ENTER LOGIC TEST 
043002 JSR PC,GETLIN 
BR NX TUN sFINISHED ALL LINES GET NEXT UNIT 
001102 CLR STSTNM 
002616 TYPE 638 s:TYPE ASCIZ STRING 
BR “GET OVER THE ASCI2Z 
i953" -ASCIZ OFS 5<12>/NOw TESTING LINE/ 
001244 MOV CLINED,~(SP) — ;;SAVE CLINED FOR TYPEOUT 


TYPOS 22G0 TYPE--OCTAL ASCII 


Jt ew pest i=p4 sialic mac wee? yo ty 09:21 PAGE 49 
UE FOR SOFTWARE SWITCH REGISTER SEQ 0049 


Bee ge are 8 bat AS ng reno 
652 104401 002660 TYPE 7$ T:TYPE ASCIZ STRING 
$ doocos & 


656 BR $ tIGET OVER THE AS th 
- ii6?8: ~ASCIZ. / KMC #/ 
igre 013746 001246 MOV SDVICE,-(SP)  ;;SAVE SDVICE FOR TYPEOUT 
10 002674 10440 TYPDS 2:60 TYPE--DECIMAL ASCII WITH SIGN 
11 002676 104401 002704 TYPE 9$ Z:TYPE ASCIZ STRI 
ab 702 000402 BR $ ':GET OVER THE ASCIZ 
21 -69$: .ASCIZ / / 
eis 002710 bas: 
15 002710 000137 002714 JMP LTEST zRUN LOGIC TESTS 
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PAGE 50 
NARY PRIMARY REGISTER READ TESTS 
-SBTTL PRELIMINARY PRIMARY REGISTER READ TESTS 





LTEST: 
peeenenaaeaananeteeeanenaaae TEST 1] Reeeeeeeeeneekeneeketeeneet 
s*LINE SELECT REGISTER TEST 
3*D0 A MASTER CLEAR, VERIFY THAT ALL 
7*BITS ARE IN THE CORRECT STATE OF REGISTER PRI11 
{RARE EAAAREAAAAEAAERAAAEAAAEAEEAAAAAAERAAAEARAREREREAEAREEEEE 
3; TEST 1 
PT TTTITITITTTT TTT LETT LLL LLL TTT TTT TTT TTT TTT eT T tt 
tST1: SCOPE 
MOV #1,$TSTNA 3 LOAD THE NO. OF THIS TEST 
MOV #1, TSTNUM 3# FOR TYPE OUT 
101$: RESET sCLEAR THE WORLD 
JSR PC ,@4STKINT sINITIAL TTY INPUT 
CLR RO 
10S: INCB RO 
BNE 10$ 
CLR (R4) sINITIALIZE THE CSR REGISTERS 
CLR 2(R4) 3 ese 
CLR 4(R4) 3 eee 
CLR 6(R4) 3 ace 
001240 102$: MOV #PRI11,REGIST ;SAVE THE REGISTER FOR TYPE OUT 
READ -PRI sREAD PRI11 
MOV © (SP)+,$TMPO =; ; POP, STACK_ INTO STMPO 
CLR STMP1 sPUT EXPECTED’ IN STMP1 
CMP STMPO,STMP1 sCOMPARE RESULTS 
BEQ TST2 ce 
ERROR 1 SERROR IN PRI11 
JMP 101$ ;LOOP ON ERROR 


pteaneannaneneeeeeeenaanaane TEST 2 teaneennaneaereneeeneanrene 
s*SECONDARY SELECT REGISTER TEST 

:*DO_A MASTER CLEAR, VERIFY THAT ALL 

7*BITS ARE IN THE CORRECT STATE OF REGISTER PRI12 


fF TARRAAAAAERARAAEEAEEEEERERERREREEEEEEEREREREEEREEEEREREEREEREEE 


; TEST 2 


o 
2 EAA EEAAEAAAEAAAAEARERAEAEARAERAERAAAERAAEREAEERAREAERAAEEAEREEEAEERKREEE 


1ST2: SCOPE 
MOV #2, $TSTNA : LOAD THE NO. OF THIS TEST 
MOV #2. TSTNUM *# FOR TYPE OUT 
101$: RESET ZCLEAR THE WORLD 
JSP PC, a#STKINT tINITIAL TTY INPUT 
CLR RO 
10$ INCB- ss RO 
BNE 10$ 
CLR (R4) sINITIALIZE THE CSR REGISTERS 
CLR 2(R4) : ee: 
CLR 4(R4) : Pisa 


CLR 6(R4) : eee 


mn 4 
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CZKMDA.P11 T-81 17:03 PRELIMINARY PRIMARY REGISTER READ TESTS 


? 076 012737 i 001240 1028: mOy #PRI 12. -REGIST SAVE THE REGISTER FOR TYPE OUT 

7, 106 1 6 1 MOV (epyes STMPO ;POP. src INTO $TMPO 

75 11 7 001 CLR $TMP1 tPUT EXPECTED" IN $TMP1 

26 116 023737 001202 001204 CMP STMPO,STMP1 beet 323 ESULTS 

003124 001403 BEQ TST3 i 

78 003126 1 001 ERROR 1 [ERROR IN PRI12 
o9 003130 000137 003042 JMP 101$ SLOOP ON ERROR 
281 
2 peeeeareeeeeeeeeeeeeeeneaaae TEST 3 seeenaneeeeceneeeeneraneees 
28 [LINE STATUS REGISTER TEST 
284 :*D0 A LINE CLEAR, VERIFY THAT ALL 
285 [*BITS ARE IN THE CORRECT STATE OF REGISTER PRI13 
$e6 3 FRAAAAAAAARAAEAAAEAAAAAARAERARAERAEAAAREREREEAEAARERERAERAAEEEEE 
soe : TEST 3 
290 PITIIIIITILILITTI LLL TLL LLL LLL LLL LLL LE LLL LEE EEL 
291 003134 ‘$13: SCOPE 
2292 003136 012737 000003 00110 MOV #3. STSTNM OAD THE NO. OF THIS TEST 
2293 003144 012737 000003 00126 MOV #3. TSTNUM ig FOR TYPE OUT 
2294 003152 104417 101$: LRESET 
2295 003154 012737 000013 001240 MOV wnt 13 .REGIST sSAVE THE REGISTER FOR TYPE OUT 
229% 003162 loc4e0 00001 READ EAD PRI13 
2297 003166 012637 901208 MOV (SP)+,$TMPO 72POP STACK INTO STMPO 
2298 003172 01 03 20 001204 MOV #20,$TMP1 :PUT EXPECTED’ IN STMP1 
2299 003200 023737 001202 001204 CMP STMPO,STMP1 [COMPARE RESULTS 
2300 003206 001403 BEQ TST4 i 
2301 003210 104001 ERROR 1 TERROR IN PRI13 
3302 003212 000137 003152 JMP 101$ [LOOP ON ERROR 
Sap¢ FRAAAAAEAAAAEAEREEEAARAERAEKEE TEST 4 SAEAAAERAARAARARAEAAREREERAEE 
2305 Z*LINE CONTROL REGISTER TEST 
2307 7*DO A LINE CLEAR, VERIFY T 
2308 :*BITS ARE IN THE CORRECT CTATE AOE REGISTER PRI14 
$305 Z TRRAAARARAAARAAREAAEARAEAARAARAAARAEAARARERARERAEEEEEEEREREREEAEE 
got : TEST 4 
$3iz ° PITITITITITITITITILIT LLL LLL ELLE 
314 003216 TST4: SCOPE 
9315 003220 O27 7 000006 00110 MOV #4, $TSTNM LOAD THE NO. OF THIS TEST 
2 16 003226 012737 000004 00126 MOV #4. TSTNUM te FOR TYPE OUT 
3! 00 104417 101$: LRESET 
318 00 012737 900014 001240 MOV WPRIIG,REGIST  ;SAVE THE REGISTER FOR TYPE OUT 
2319 003244 1044 14 READ, PRI14 
2320 003250 012637 001202 MOV (SP) +, STMPO :POP STACK INTO $TMPO 

1 905 54 005037 001204 CLR $TMP1 ‘PUT “EXPECTED’’ IN $TMP1 

003260 025737 001202 001204 cw $10. STAMP! ;COMPARE RESULTS 

324 0032 104001 ERROR 1 ZERROR IN PRI14 
323 003272 000137 003234 JMP 101$ [LOOP ON ERROR 
327 
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21-OCT-81 09:21 PAGE 52 
PRELIMINARY PRIMARY REGISTER READ TESTS 


peeaneneaeanerereeeeaereeees TEST § seeeeneereeneereneeeenegeee 
3 * TRANSMIT STATUS MX REGISTER TEST 

37*DO A MASTER CLEAR, VERIFY THAT ALL 

7*BITS ARE IN THE CORRECT STATE OF REGISTER PRI16 


{ ERAAAAAAAAAAAAAAAAAAAAAAREAAAEAAEEEEEEREREARERAAAERERAREEEE EES 


: TEST 5 
sag "gle aagmgagioneetoe on mney nmaae autem aan, 
1: sc 
MOV #5,$TSTNM : LOAD THE NO. OF THIS TEST 
MOV #5. TSTNUM 7# FOR TYPE OUT 
101$: RESET :CLEAR THE WORLD 
JSR PC, a#STKINT sINITIAL TTY INPUT 
CLR RO 
10$: INCB RO 
BNE 10$ 
CLR (R4) ZINITIALIZE THE CSR REGISTERS 
CLR 2(R4) : oh 
CLR 4(R4) : aon 
CLR 6(R4) : na 
102$: MOV #PRI16,REGIST :SAVE THE REGISTER FOR TYPE OUT 
READ ,PRI16 SREAD PRI16 
MOV (SP) +,$TMPO z:POP STACK INTO $TMPO 
MOV #377, $TMP1 -PUT EXPECTED’ IN $TMP1 
JSR PC, .MASK :CALCULATE THE MASK 
BIC MASK ,STMPO “MASK OUT LINES NOT INUSE 
BIC MASK. $TMP1 [MASK OUT LINES NOT IN USE 
CMP $TMPO,$TMP1 :COMPARE RESULTS 
BEQ TST6 i 
ERROR 1 SERROR IN PRI16 
JMP 101$ SLOOP ON ERROR 


peeateaneeeeareereeeeaaneane TEST G6 RRRRAAAARAEAAEEAEEREEREEEEEE 
*RECEIVE STATUS MX REGISTER TEST 

7*DO A MASTER CLEAR, VERIFY THAT ALL 

7*BITS ARE IN THE CORRECT STATE OF REGISTER PRI17 


f LRRRRAREAEAEEERERERAEAEREREREEEEREREEERERERERRERERREREERREREERE 


Seams ae moncmmeaca 
e 
2 RARER AAEEAAEAARAEEREREEEAEREEEEREAEEREREREERRRARAAREREREREE EE 


S76: SCOPE 


MOV ss #6, STSTNM : LOAD THE NO. OF THIS TEST 
MOV #6, TSTNUM :# FOR TYPE OUT 
101$: RESET CLEAR THE WORLD 
JSR. PC, @#STKINT INITIAL TTY INPUT 
CLR =—s_ RO 
10$: INCB RO 
BNE 108 
CLR (R4) INITIALIZE THE CSR REGISTERS 
CLR —-2¢R4) : eee , 
CLR = &(R4) : sine 


C 6(R4) eee 
001240 102$: MOV #PRI17,REGIST ;SAVE THE REGISTER FOR TYPE OUT 


So 
= 
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CZKMDAO DMS11=DA STATIC MACY11 30A(1052) 21-OCT-81 09:21 PAGE 53 
CZ2KMDA.P11 ~$0-8c1 8) 17:0 PRELIMINARY PRIMARY REGISTER READ TESTS SEQ 0053 
90 1044 17 READ ,PRI17 :READ PRI17 
5 51 126 1202 MOV (SP)+,$TMPO z;POP STACK INTO $TMPO 
51 0 7 001 CLR $TMP1 sPuT “EXPECTED IN $TMP1 
5 7? 0467276 JSR PC, .MASK SCALCULATE THE MASK 
526 3 7? 0467 3 001202 BIC MASK, $T ZMASK OUT LINES NOT INUSE 
9 003534 043737 047352 001204 BIC MASK. $TMP1 [MASK OUT LINES NOT IN USE 
390 003542 023737 001202 001204 CMP $TMPO, STMP1 :COMPARE RESULTS 
2391 003550 001403 BEQ TST7 i 
2392 003552 104001 ERROR 1 TERROR IN PRI17 
2393 003554 000137 003446 JMP 101$ [LOOP ON ERROR 


C 
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CZKMDA.P11 20-OCT-81 17:03 OATING ONE TEST OF PRIMARY REGISTER 11,12,13 


-SBTTL FLOATING ONE TEST OF PRIMARY REGISTER 11,132,135 


peereaeeageeeereeererennanee TEST 7 santaneaeenanaaeeaeeeneeete 
z*PRIMARY REGISTER WRITE/READ TEST 

s*FLOAT A 1 TH re teP PRI11 

3*THE FOLLOWING BITS ARE _NOT TESTED 

3% *e<BIT BIT BITS B13 e1T/>e* 


SRARAAAAAEAARAAEAEAARAAAAEAAARARARARERAEARRERAAARERRERERAREEREE 


FITITITITITILILLLLLL ELLE LLL LLL LLL LLL LLL ELLE EEL 


+817: 
#7. $TSTNA ; LOAD THE NO. OF THIS TEST 
“HF PE OUT 


TNUM FOR TY 
mPa REGIST ;SAVE REGISTER FOR TYPE OUT 
17,668 ‘START WITH BIT 7 


-PRI11 a by DATA INTO PRI11 


ePRI11 sREAD P 111 
(sp). —* 2 gro STACK _INTO STMPO 
EXPECTED INTO STMP1 
wif0'B BIT] !BIT2!BITS61T7. STMPO :CLEAR DON'T CARE 
#BITOIBITI iBITSIBITSIBIT?. ig 1 [CLEAR UNWANTED BITS 
001204 ia MP1 sBATA CORRECT? 


sBR IF YES 
2 sFLOATING ONE'S ERROR OF PRI11 
101$ ;LOOP ON ERROR 


66$ zSHIFT BIT_IN 66$ 
64$ :1F 66$=0 THEN DONE 
TST10 ee 


peeaareraaeaeeeereeeeeaaeeen TEST 10 senaaneeaaneeennananneeenet 
2 *PRIMARY REGISTER WRITE/READ TEST 

z*FLOAT A 1 ime bir PRI 

;*THE FOLLOWING BITS ARE NOT TESTED 

z* *e<BIT BIT Bi TS!81 T3>* 


-eunasandaadhenasoinasenesnnenininennnmnemmeniaenamesanats 
TEST 10 
FF ee Ee ee 
“ #10,$TSTNM LOAD i 4 NO. OF THIS TEST 


NUM 
#PRI12,REGIST  ;:SAVE asthe R FOR TYPE OUT 
#B1T7,66$ ‘START WITH BIT 


SCOPE 
MSTCLR 





CZKMDAO DMS11=DA STAT ‘ macntt 30A(1052) 21-OCT-81 09:21 PAGE 55 





CZKMDA.P11  20-0CT FLOATING ONE TEST OF PRIMARY REGISTER 11,12,13 SEQ 0055 

50 WRITE  ,PRI12 :WRITE DATA INTO PRI12 

451 66S: [DATA 

465 READ PRI12 TREAD PRI12 

45 MOV (SP) +, STMPO :;POP STACK INTO $TMPO 

454 MOV 66$,$TMP1 “PUT EXPECTED INTO $TMP1 

455 00 BIC #8170'B1T1!B1T2!B1T3,$T ZCLEAR DON'T CARE 
496 00 BIC #81T0'B1T1'BIT2'B1T3,$TMP1 “CLEAR UNWANTED BITS 
457 00400, CMPB ss STMPO. STMP1 “DATA CORRECT? 

458 00401 BEQ :BR IF Y 

459 004012 ERROR [FLOATING ONE'S ERROR OF PRI12 

460 004014 JMP 101% SLOOP ON ERROR 

461 004020 65$: 

46e 004020 ASR 66$ :SHIFT BIT IN 66$ 

2463 004024 BNE 64$ TIF 66$=0 THEN DONE 

2464 004026 BR TST11 +3 

sf 

2467 peeakeakkaaeakekerekenanene TEST 1] RRR eee AeRReAkeeeRekkekeee 

2468 [*PRIMARY REGISTER WRITE/READ TEST 

2469 :*FLOAT A 1 THROUGH PRI13 

2470 [*THE FOLLOWING ARE READ ONLY BITS 

2471 :* **<B1T0'BIT1!B112!B81T3'B1T4!BIT6!BIT7>** 

2472 :*AND SHOULD BE READ AS ZERO 

soo? 3 TRARAAAAAARAAAEAERARAERERAEAAARAAEAEEAAAERAEEAEAEERAEEEEAEEEEERERAEEEERE 

679 : TEST 11 

2477 22 RAERAAAEAARAAAARARARAEAEAERAARKAEKEAAAEARAARARAAARAKRAARARARAAERAERARREKE 

2478 004030 000004 TST11: Scop 

2479 004032 012737 000011 001102 MOV #11, $TSTNM : LOAD THE NO. OF THIS TEST 

2480 004040 012737 000011 001262 MOV #11. TSTNUM “# FOR TYPE OUT 

2481 004046 105737 001256 TSTB = CRC 32F : CRC32 ENABLED? 

2482 004052 100043 BPL TST12 3 

2683 004054 012737 000013 001240 MOV WPRI13,REGIST :SAVE REGISTER FOR TYPE OUT 

2484 004062 012737 000200 004100 MOV #B1T7,66$ SSTART WITH BIT 7 

2485 004070 000004 SCOPE 

2486 004072 104414 101$:  MSTCLR 

2487 004074 64$: 

2488 004074 104416 000013 WRITE ,PRI13 :WRITE DATA INTO PRI13 

2489 004100 000000 66$: 9 DATA 

2490 004102 104420 000013 READ _—,PRI13 TREAD PRI13 

2491 004106 0126 ? 001202 MOV (SP) +, $TMPO ::POP STACK INTO $TMPO 

492 004112 013737 004100 001204 MOV 66$,$TMP1 “PUT EXPECTED INTO STMP1 

493 004120 042737 000337 001204 BIC #81T0'B1T1!B1T2!B1T3!B114'B116'BIT7,$TMP1 ZCLEAR ALL READ ONLY BIT 
494 004126 052737 20 001204 BIS ATBMT .STMPI ;TBMT SHOULD T 

2495 004134 123737 001202 001204 CMPB ss STMPO.. STMP1 -DATA CORRECT? 

2496 004142 001403 BEQ 65$ :BR IF YES 

2497 004144 104002 ERROR 2 [FLOATING ONE'S ERROR OF PRI13 

2498 004146 000137 004072 JMP 101$ [LOOP ON ERROR 

team tated 006257 004100 Oe ae Tt ons SHIFT BIT IN 66$ 

2501 004156 001346 BNE 64$ SIF 66$=0 THEN DONE 

350 004160 000400 BR TST12 33 


2505 pekkaneaeeeeeneeeeeeeaeeaeee TEST 12 seaeenneaaeeereneeeaaeeenee 


E 
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CZKMDAO DMS11~DA STA DA STATIC 
CZKMDA.P11 1 17:03 OATING ONE TEST OF PRIMARY REGISTER 11,12,13 SEQ 0056 

06 :*PRIMARY REGISTER WRITE/READ TEST 

50 [FLOAT A 1 THROUGH PRI 

508 :*THE FOLLOW! ARE READ ONLY BITS 

509 :* #*e<BIT1'BIT 

510 ;*AND SHOULD BE READ AS ZERO 

21 3 TRAAAAAAAAAAAAAAAEAARAEEREROERARREREERERARAEAERAEERAAREEEEREEREREREEE 
1 

318 3: TEST 12 

515 bt blababt-bi-biehbebchiahiebhbehbbhihbhhihibhihbbhbhhbhbhhihbihbhihhiohia 
16 004162 T8112: SCOPE 

51 004164 012737 000012 001102 MOV 412 .$TSTNM i ,LOAD THE NO. OF THIS TEST 
518 004172 012737 000012 00126 MOV FOR TYPE OUT 

519 904200 012737 000014 001240 MOV WPRI14,REGIST ;:SAVE ncktsion R FOR TYPE OUT 

520 004 012737 000200 004224 MOV #B1T7,66$ ‘START WITH B 

2521 004214 SCOPE 

2522 004216 104414 101$:  MSTCLR 

325 004220 64$: 

524 004220 104416 000014 WRITE  ,PRI14 ZWRITE DATA INTO PRI14 

325 004224 000000 66$: 0 : 

2526 004226 loseed 000014 READ ,PRI14 READ R114 

2527 004232 012637 001202 MOV (SP)+,$TMPO STACK INTO $TMPO 

2528 004236 013737 004224 001204 MOV 66$,$TMP1 ‘buy EXPECTED INTO STMP1 

2529 004244 042737 000006 001204 BIC #81T1'B1T2,$TMP1 ALL READ ONLY BITS 

2530 004252 105737 001256 TSTB = CRC 32F : CRC32 ENABL 

2531 004256 100406 BMI 110$ : SKIP IF 

2532 004260 042737 000010 001202 BIC #B81T3,$TMPO : CLEAR CRE 5; EN. 

2333 004266 042737 000010 001204 ie BIC #B1T3.STMP1 

2535 004274 123737 001202 001204 CMPB = $TMPO., STMP1 -DATA CORRECT? 

2536 004302 001403 BEQ 65$ :BR IF YES 

2537 004304 104002 ERROR 2 [FLOATING ONE'S ERROR OF PRI14 

2538 004306 000137 004216 JMP 101$ SLOOP ON ERROR 

2539 004312 65$: 

2540 004312 006237 004224 ASR 66$ zSHIFT BIT IN 66$ 

2541 004316 001340 BNE 64$ [IF 66$=0 THEN DONE 

2542 004320 0004 TST13 33 
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CZKMDA.P11 117 PRELIMINARY SECONDARY REGISTER READ ONLY TEST SEQ 0057 

oF -SBTTL PRELIMINARY SECONDARY REGISTER READ ONLY TEST 

526 peeaeeeeaeeneaeeeeeeeeaeaaaee TEST 135 seeanreaeeeeanceneeeeeeannes 
54 ; *RECEIVE DATA BUFFER SECONDARY READ TEST 

548 s*DOES A LINE RESET 

549 z #READS SECONDARY REGISTER SECO 

220 TRARRAARAEAEREREEEERERERERERERERREREREEREEREREREREREREREREREREE 
22¢ ; TEST 13 

554 bt Llaiahsbb-tl-tahialehiahehbehhbehhbhinbehiathihhihbihnihbihihhbthbhhihbihins 

555 004322 000004 18113: SCOPE 

226 O0t 383 012737 000013 00110 MOV #13, STSTNA 3 LOAD THE NO. OF THIS TEST 

2557 0043 012737 0000135 00126 MOV #13, TSTNUM 3# FOR TYPE OUT 

2558 004340 104417 g LRESET 

559 Oot gee 012737 000000 001240 V #SECO,REGIST : SAVE REGISTER FOR TYP OUT 

560 004350 104420 000000 EAD e EAD SECONDARY DATA 

561 004354 0126357 001202 MOV (SP)+,STMPO ‘POP STACK_INTO STMPO 

266 004360 8365 7 000000 001204 MOV 2 STMP1 sLOAD EXPECTED INTO $TMP1 

5635 004366 023737 001202 001204 CMP STMPO ,STMP1 COMPARE RESULTS 

2564 004374 001403 BEQ TST14 

$202 004376 104003 ERROR TREAD ay OF SECO 

$208 004400 000137 004340 JMP 1$ ;LOOP ON ERROR 
5268 pekakkakaakakaeeeeranaakeane TEST 14 eeeeaareeeaeeeeeeeeekeneene 
2570 Z*RECIEVE STATUS SECONDARY READ TEST 

2571 z#READ S SECONDARY REGISTER SEC1 

$25 TRRARAAREREREREEREEERRAREREREEEREREREREREREREREREEREREREEREEEREE 
$278 3: TEST 14 

2576 PITITITILILILILITILL LLL LL LL LLL LLL ELLE ELLE EEE ELL 

2577 004404 000004 TST14: SCOPE 

2578 004406 012737 000014 001102 MOV #14, STSTNA LOAD THE NO. OF THIS TEST 
2579 004414 012737 000014 001262 MOV #14, TSTNUM ia FOR TYPE OUT 

2580 004422 104417 1$: LRESET 

2581 004424 012737 000001 001240 MOV #SEC1, REGIST SAVE REGISTER FOR TYP OUT 

$288 004432 pose 000001 READ sREAD SECONDARY DATA 

2583 004436 0126357 001202 MOV (sP)s. sere 33POP STACK _INTO STMPO 

Soee 004442 01 ate 001204 MOV LOAD EXPECTED INTO STMP1 

585 004450 0235737 001202 001204 CMP cnr COMPARE RESULTS 

586 004456 001403 BEQ 

587 004460 104003 ERROR SREAD ERROR OF SEC1 

4 004462 000137 004422 JMP LOOP ON ERROR 

S250 SSTRONERIT BATA GUN PPR a0 CON TEST 15 sxeeanaeeaarantareeneekeeeee 
59. *TRANSMIT DATA BUFFER SECONDARY READ TEST 

59 {#READS SECONDARY REGISTER SEC2 

23¢ SRRARARAAERARARERERERERERAREREEREREREREREREREREEEEEREEREEREEEEEE 
5 : TEST 15 

$298 8 em GE ee ae ee 


2598 J FARRAR AAAAEAAREEEEREEEEEEEEEEREAEAEAEARAEREERAEEEEEREERAEEREEREEEEREEEE 





5 
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CZKMDA.P11 20-OCT-81 17:03 PRELIMINARY SECONDARY REGISTER READ ONLY TEST 
99 TST15: SCOPE 
Ooserg oi 7 900015 00110 MOV #15,$TSTNM LOAD THE NO. oF THIS TEST 
1 004476 16737 000015 0012 - nove, ! #15. TSTNUM ig FOR TYPE OU 
00406 012737 90000 001240 MOV wsEC2, REGIST — SAVE REGISTER FoR ie ouT 
004514 1044 9 READ READ SECONDARY DATA 
S 9045 0126 00120 MOV (Spy STMPO + POP STACK INTO $TMPO 
004524 O1e 7 001204 MOV #0,$TMP1 :LOAD EXPECTED INTO STMP1 
004532 023737 001202 001204 CMP STMPO,STMP1 ZCOMPARE RESULTS 
608 00454 1403 BEQ TST16 
00454 104005 ERROR 3 *READ ERROR OF SEC2 
10 004544 000137 004504 JMP 1$ [LOOP ON ERROR 
sole J RAAAAAAAARAEEEREEEEAERERERE TEST i REAAAAAAEAAKRAREAKAEEAREEEERE 
2614 [*TRANSMIT STATUS SECONDARY READ TEST 
2615 [*READS SECONDARY REGISTER SEC3 
2616 :*THE FOLLOWING BIT(S) ARE NOT CHECKED 
261 i* ef Bite) TS'BIT4> 
2618 Pra Bin» be one Lid + be tiem SED. SSE eNO 
2619 
Sosy ; TEST 16 
262 f SAAR AREEAEEARARAEEEEREEEEEREAEAEEERREREREARREEREREEAEEREEEREEREEEREE 
2623 004550 000004 TST16: SCOPE ; 
2624 004552 012737 000016 001102 MOV #16, $TSTNM THE NO. OF THIS TEST 
2625 004560 012737 000016 001262 MOV #16. TSTNUM ‘gt POR TYPE OUT 
2626 006566 104417 1$: LRESET 
2627 004570 012737 000003 001240 MOV WSEC3,REGIST SAVE REGISTER FOR ie OUT 
2628 004576 1420 000003 READ SEC 3READ SECONDAR Y DAT 
2629 004602 012637 001202 MOV (SP)+_$ STMPO ::POP STACK INT STMPO 
2630 012737 000000 001204 ~ MOV #0, $TMP *LOAD EXPECTED Into STMP1 
2631 004614 042737 000160 001202 BIC waito'BITS!BITS, STMPO —: MASK T CARE BITS 
632 004622 023737 001202 001204 CMP STMPO.STMP1 SCOMPARE. RESULTS 
33 004630 001403 BEQ TST17. 
2634 004632 104003 ERROR 3 READ ERROR OF SEC3 
3635 004634 000137 004566 JMP 1s [LOOP ON ERROR 
637 
sees FRAAAAAAAERRAEREEEEEERERERERR TEST 17 REEAAARARAAAEAAEAEAEEAREREERKEEEE 
2639 [*SYNC SECONDARY ADDRESS SECONDARY READ TEST 
2640 : #READS SECONDARY REGISTER SEC4 
sor) TRARAAARAAAAAAEEAEAAEREAAEEARAREREERAREAARARERAEEAEEEEEEREREEEEREEE 
2648 ; TEST 17 
645 jteetenhentennenneneeertentenentententnententenenntensensnnens 
646 004640 000004 18117 SCOPE 
2647 2 012737 000017 001102 MOV #17, $TSTNM ; LOAD THE NO. OF THIS TEST 
2648 004650 012737 000017 00126 MOV #17. TSTNUM :# FOR TYPE OUT 
2649 004656 104417 1$: LRESET 
2650 004 012737 900004 001240 MOV WSEC4,REGIST | ;SAVE REGISTER FOR TYP OUT 
651 004 104420 READ ,SEC4 3READ SECONDARY A 
652 00467 0126 1202 MOV (SP) +, $TMPO :;POP STACK INTO $TMPO 
2653 004676 012737 000000 001204 MOV #0,$TAP1 :LOAD EXPECTED ONTO STMP1 
2654 004704 023737 001202 001204 CMP STMPO,STMP1 ZCOMPARE RESULTS 
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CZKMDA.P11 20-OCT-81 17:03 PRELIMINARY SECONDARY REGISTER READ ONLY TEST SEQ 0059 
55 004712 00140 BEQ TST20 F 
36 904714 104 ERROR 3 ZREAD ERROR OF SEC4 
3 716 000137 004656 JMP i$ SLOOP ON ERROR 


ODE CONTROL SECOMDARY REA TEST 20 seeaeeaeeneaceracerereneeet 
1 y+ CONTROL SECONDARY READ TES 
z READ S SECONDARY REGISTER SECS 


FRAARAAAAAAAAAEAAAAEAAARAARARAAERAAERAAEREAERAAERAARAEEERERREREREEEE 


5 : TEST 20 
se6r PTITIIIIIILILLLITL LLL LLL LLL LLL LLL ELLE ELLE 
004722 909004 TST20: SCOPE 
2669 004724 012737 000020 00108 MOV #20,$TSTNM LOAD THE NO. OF THIS TEST 
70 004 012737 000020 0012 MOV #20, TSTNUM ig FOR TYPE OUT 
71 004740 104417 1$: LRESET 
50% ogo 012737 000005 001240 MOV #SECS REGIST 3 SAVE REGISTER FOR TYP OUT 
00475: sonegd 000005 READ SECS READ SECONDARY DATA 
2674 004754 pisé 7 001202 MOV (SP)+,$TMPO ::POP STACK INTO STMPO 
2675 004760 012737 000000 001204 MOV #0,STMP1 ;LOAD EXPECTED INTO STMP1 
2676 004766 023737 001202 001204 CMP STMPO,STMP1 sCOMPARE RESULTS 
2677 004774 001403 BEQ TST21 
678 004776 104003 ERROR 3 TREAD ERROR OF SECS 
679 005000 000137 004740 JMP 1$ [LOOP ON ERROR 
2681 
2682 Pe nog te a ete TEST 21 seeraranaaakekakeakeeeeenee 
2683 ;*CHARACTER LENGTH SECONDARY READ TEST 
z #READS SECONDARY REGISTER SEC 
2685 SRRAARARAAEAEEREEEEEEREREARAEERREEERERERERREREREEREEREEREREEEER 
5 244 3 TEST 21 
2689 jthtenneeneneeneenensententeneenennetsnanenensenneeneneneenette 
3690 005004 000004 18121: SCOPE 
691 005006 012737 000021 001102 MOV PAT AE ye LOAD THE NO. OF THIS TEST 
92 005014 012737 000021 001262 MOV #21, TSTNUM te FOR TYPE OUT 
2693 005022 104417 1$: LRESET 
005024 012737 000007 001240 MOV #SEC7 REGIST 3 SAVE REGISTER FOR TYP OUT 
2695 005032 s0seed 000007 READ READ SECONDARY DATA 
3930 012637 001202 MOV (SP) +, STMPO 3 POP STACK INTO STMPO 
2697 5042 012737 000000 001204 MOV #0, STMP1 3LOAD EXPECTED INTO STMP1 
2698 Boones 001405 001202 001204 A SAPO. STMP1 sCOMPARE RESULTS 
700 005060 10400 ERROR 3 “READ ERROR OF SEC7 
2700 005062 000137 005022 JMP 1$ ;LOOP ON ERROR 
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CZKMDA.P11 20-OCT-81 17:03 RECEIVE STATUS REGISTER WRITE TEST SEQ 0060 

re -SBTTL RECEIVE STATUS REGISTER WRITE TEST 

705 peeenanerenarererereraane an TEST 22 ekeaneeeaeeeeneeeneneneneee 
me  *RECEIVE STATUS REGISTER SECONDARY) BIT TEST 

ne sTHIS TEST D DOES A WRITE ;) THE READ ONLY BITS 

709 + AND THEN CHECKS TO MAKE SURE IT WAS NOT WRITTEN 

ay PPITIIITIT ITI LITT IITI LITTLE LTLI ELLE LET LL LLL LLL 
ar 3; TEST 22 

714 jtheenehennenaenneeneenteerennennentanenenteneenenenenerettetent 

715 005 909004 $8122: SCOPE 

716 00507 8155 7 00002 Op 108 MOV #22, tet LOAD THE NO. OF THIS TEST 

717 005076 012737 000022 0012 MOV # 22.1S P FOR TYPE OUT 

718 005104 106417 g LRESET 

719 005106 Wests 000001 000001 WRITE oR sWRITE THE READ ONLY BIT RSOM 

oso 005114 012737 000001 001240 MOV Pit REGIST SAVE REGISTER FOR TYP OUT 

721 005122 sese$e 000001 READ e355! 
2722 0051 ois6 7 001202 MOV (SP) +,$TMPO 33POP STACK INTO $TMPO 

723 005132 042737 177776 001202 BIC Peo, STMPO ;CLEAR UNWANTED BITS 

724 00514 002037 001204 CLR 3LOAD EXPECTED INTO STMP1 

2725 005144 023737 001202 001204 CMP ca Test IF SET 

2726 005152 001403 BEQ 

2727 005154 104004 ERROR TERROR RSOM CAN BE WRITTEN 

sis8 005156 000137 005104 J ;LOOP ON ERROR 
ie peeeakkeaekaaeeeeeereanaaeae TEST 23 seeraeeeannaneaeaareneeeent 
732  *RECEIVE STATUS REGISTER (SECONDARY) BIT TEST 

es sTHIS TEST D DOES A WRITE TO THE READ ONLY BITS 

2735 : SAND THEN CHECKS TO MAKE SURE IT WAS NOT WRITTEN 

4 J LRRAARAAAAEAAAEEAAAAAARERERERERREREREEEEREEEREREREREREREERERERE 
i : TEST 23 
2740 jtuseeneenennenensententertenentnnnenenanneeenannenenteerentetts 

2741 005162 000004 18123: SCOPE 

742 005164 B58 000023 00110 MOV #23,$TSTNM ; LOAD THE NO. OF THIS TEST 

74 tates 012737 0000235 00126 MOV #23, TSTNUM :# FOR TYPE OUT 

744 5200 104417 1$: LRESET 

745 tty 10s616 000001 000008 WRITE ,SEC1,REOM sWRITE THE READ ONLY BIT REOM 

a" 005210 012737 000001 00124 MOV t+) areas SAVE REGISTER FOR TYP OUT 

74 po2618 Het 44 000001 READ 

748 00522 1 6 001608 MOV STMPO 73POP STACK INTO STMPO 

749 005226 37 177775 001202 BIC ily BE [CLEAR UNWANTED BITS 

750 005 037 $0 1g08 CLR STMP1 SLOAD EXPECTED INTO S$TMP1 

751 005240 Beat 1202 001204 CMP STMPO ,STMP1 sTEST IF SET 

752 005. 38 1403 BEQ TST24 

753 00525 104004 ERROR 4 TERROR REOM CAN BE WRITTEN 

es: 005252 000137 005200 JMP 1$ ;LOOP ON ERROR 

736 peeeekkeneeeeeeeeereeaeanane TEST 24 seeaeeneneaneaneeeaeeeeeeee 
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CZKMDA.P11 20-OCT-81 17:03 RECEIVE STATUS REGISTER WRITE TEST SEQ 0061 

758 Z*RECEIVE STATUS REGISTER (SECONDARY) BIT Test 
759 :*THIS TEST _DOES A WRITE TO THE READ ONLY BITS 
760 te ** RXGA * 
761 3*AND THEN CHECKS TO MAKE SURE IT WAS NOT WRITTEN 
166 gs TRAARAAARAARAARAEAAAAEAEAAAEAAREAAEERAEREEEAREAERARAEEEEEAAARAKEEEEERE 
re 3 TEST 24 
7 ee RHRRREARRERERARRERREREEEEERERERERERERERRREREREREEREREEERERERETe 
76 005256 1S124: SCOPE 
7 5 0127 7 000024 901103 MOV #24,$TSTNM LOAD THE NO. OF THIS TEST 
169 3266 012737 000024 0012 MOV #24. TSTNUM ig FOR TYPE OUT 

5274 106417 1$ LRESET 
771 5276 1 416 000001 000004 WRIT »RXGA sWRITE THE READ ONLY BIT RXGA 

005 012737 000001 001240 MOV Frit *REGIST SAVE REGISTER FOR TYP OUT 

773 (005312 104420 000001 READ SEC 
774 005316 0126 901208 MOV (SP) +, $TMPO zzPOP STACK INTO $TMPO 
775 «005 042737 177773 001202 BIC #*C&RKGA>, STMPO :CLEAR UNWANTED BITS 
77 905 005037 001204 CLR SLOAD EXPECTED INTO $TMP1 
77 5334 023737 001202 001204 CMP ue 3TEST IF SET 
778 005342 001403 BEQ 
779 005344 104004 ERROR ?ERROR RXGA CAN BE WRITTEN 
3780 005346 000137 005274 J ZLOOP ON ERROR 
378s peeenkeeeanaaeereeeneneezane TEST 25 setaaaaeanaaaaneereeneaenee 
784 Z*RECEIVE STATUS REGISTER (SECONDARY) BIT TEST 
g78s aTHIS TEST | DOES A WRITE TO THE READ ONLY BITS 
2787 3 *AND THEN CHECKS TO MAKE SURE IT WAS NOT WRITTEN 
sree Z TRAAAAAKAAAAAEAEAEAEAAAARARAAREAEKAKRAEEEEEARAEAREKAEEEEEREEEEEREEEE 
a! : TEST 25 
279, jteseenkaeeseneneeneerereerenersereencenseneteereneeneteetettnt 
2793 005352 000004 18125: SCOPE 
2794 005354 012737 000025 901102 MOV #25, STSTNM 3 LOAD THE NO. OF THIS TEST 
2795 009362 012737 000025 00126 MOV #25, TSTNUM :# FOR TYPE OUT 
2796 005370 104417 1$: LRESET 
2797 005372 104416 000001 000010 WRITE ,SEC1,ROR sWRITE THE READ ONLY BIT ROR 
798 005400 012737 000001 001240 WSEC1;REGIST | :SAVE REGISTER FOR TYP QUT 
799 005406 1044 9 000001 READ , 
800 005412 01 $ 001208 MOV (SP)+,$TMPO 7POP STACK INTO $TMPO 
801 005416 042737 177767 001202 BIC #*C<ROR>,STMPO ;CLEAR UNWANTED BITS 
808 5424 005037 0012046 CLR $TMP1 ;LOAD EXPECTED INTO $TMP1 
803 0054 0337 7 001202 001204 CMP STMPO,STMP1 3TEST IF SET 
804 005436 001403 BEQ TST26 
805 005440 104004 ERROR 4 ‘ERROR ROR CAN BE WRITTEN 
2806 005442 000137 005370 JMP 1$ :LOOP ON ERROR 
rie {eeeaaaeeaekeeeetettenkkeknh TEST 26 seeaaaaaararkeeeeeeeeekeeee 
810 > *RECEIVE STATUS REGISTER (SECONDARY) BIT TEST 
gi ;*THIS TEST _DOES A WRITE TO THE READ ONLY BITS 
B13 S*AND THEN CHECKS TO MAKE SURE IT WAS NOT WRITTEN 
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MACY11 30A(1052) 21-OCT-81 09:21 PAGE 62 
17:03 RECEIVE STATUS REGISTER WRITE TEST SEQ 0062 
FE RRAAAARAAAAEREEEEEEAEAAEAAARRERRAEREARRERREREREREREREEEREEEERERE 
; TEST 26 
"77 /"-" eeenaneaimnaepnmeaeemmeaeacenmamaacannaies 
+8126: SCOPE 
900026 We MOV #26. $1STNA z LOAD THE NO. OF THIS TEST 
6 nove, :# FOR TYPE OUT 
000001 20 WRITE 1,ABCA ZWRITE THE READ ONLY BIT ABCA 
000001 001240 MOV a REGIST  :SAVE REGISTER FOR TYP OUT 
09 i 203 MOV :POP STACK INTO $TMPO 
177757 001202 BIC Pcabtas,dr0e0 :CLEAR UNWANTED BITS 
001204 CLR ZLOAD EXPECTED INTO STMPT 
001202 001204 chp aa 3 TEST IF SET 
ERROR *ERROR ABCA CAN BE WRITTEN 
005464 JMP [LOOP ON ERROR 
petaakeeaaaaeeeeeeereaaaaaae TEST 27 staeaeanaeraeneaanrreeanenes 
T*RECEIVE STATUS REGISTER (SECONDARY) BIT TEST 
38TH HIS TEST DOES A WRITE TO THE READ ONLY BITS 
$ AND THEN CHECKS TO MAKE SURE IT WAS NOT WRITTEN 
TRAAAAAAAAARAEAEEAAERAERAERARERAEEEAREERAREEEREEKEEEREREREEEEEEEEEE 
; TEST 27 
té ‘to r+ eee emeeaneemaenenememenenen: 
$127: SCOPE 
000027 00110 MOV #27, $TSTNM ; LOAD THE NO. OF THIS TEST 
000027 00126 - e #27. TSTNUM :# FOR TYPE OUT 
000001 000040 WRITE 1,ABCB ZWRITE THE READ ONLY BIT ABCB 
000001 001240 MOV #ECT. REGIST SAVE REGISTER FOR TYP OUT 
000001 READ SEC 
001202 MOV (SP) +,$TMPO ::POP STACK INTO STHPO 
177 001202 BIC pccabeee STMPO ;CLEAR UNWANTED BITS 
901204 CLR STMP1 SLOAD EXPECTED INTO STMP1 
001202 001204 chp STMPO, »STMP1 TEST IF SET 
ERROR 4 ZERROR ABCB CAN BE WRITTEN 
005560 JMP 1$ ‘LOOP ON ERROR 


peeeeananananeeereeeeneaanne TEST 30 seeneaneeeneceeeeeeeneeenee 
3 *RECEIVE STATUS REGISTER (SECONDARY) BIT TEST 
3 THIS TEST _DOES A WRITE TO THE READ ONLY BITS 


C * 
: AND THEN CHECKS TO MAKE SURE IT WAS NOT WRITTEN 


SRRAAAAAAEAAAREEAEAAEEAAEAERAAAEAARAEAEEAEREAAERAEEAEREEEREEEEEEEEE 


TEST 30 


CZKMDAO DMS11=DA STATIC MACY11 30A(1052) 21-OCT-81 09:21 PAGE 63 
C2KMDA.P11 dcr -8s 17 oS RECEIVE STATUS REGISTER WRITE TEST SEQ 0063 
*RRAAAAAAAAAAAAAAAAAAAAEAAARAARARAAARARAARARARARARARAARERAAEARAEEE 
2076 tet 110 15130: mov #30, $TSTNM : LOAD THE NO. OF THIS TEST 
3646 10737 Hits 12 $30 TSTNUM :# FOR TYPE OUT 
26 104417 1$: URESET 
1 1g 000001 900100 WRITE 1, ABCC ZWRITE THE READ ONLY BIT ABCC 
012737 000001 00124 MOV BREET REGIST SSAVE REGISTER FOR TYP OUT 
3672 104400 1 READ 1 
367 1 6 1 é MOV (SP) +, $TMPO z:POP STACK INTO $TMPO 
5 7? 177 001202 BIC #*C<ABCC>, STMPO ;CLEAR AR UNWANTED BITS 
571 037 001204 CLR $TMP1 [LOAD EXPECTED INTO $TMP1 
909714 737 001202 001204 CMP STMPO.STAP1 Test IF SET 
5722 001403 BEQ TST31 
005724 1 ERROR H tERROR ABCC CAN BE WRITTEN 
005726 000137 005654 JMP 1$ [LOOP ON ERROR 


pteaaeaneannaaeeeeeeenaenaee TEST 31 yn Rereerer een 
7*RECEIVE STATUS REGISTER (SECONDARY) BIT T 

sTHIS TEST D DOES A WRITE TO THE READ ONLY BITS 

3 *AND THEN CHECKS TO MAKE SURE IT WAS NOT WRITTEN 


fF ST RAAAAARAAARAREAEREEAERERERREEREEEEEREEREEREREREREREREREREEERE 





: TEST 31 
 CRRRREReeeReteeeeeeeetetetenaeeneaeeeeteeeeeeeeeereeeeeeeeeeeee 

005732 000004 T$131: SCOPE 
005734 012737 000031 901102 MOV #31, S$TSTNM OAD THE NO. OF THIS TEST 
005742 012737 000031 00126 MOV #31. TSTNUM ‘yt FOR TYPE OUT 
005750 104417 1$: LRESET 
003752 104416 000001 900200 WRITE  ,SEC1,ERRCK ZWRITE THE READ ONLY BIT ERRCK 

5760 012737 000001 001240 MOV WSECI1-REGIST | :SAVE REGISTER FOR TYP OUT 
005766 lo4ee0 000001 READ SEC 
00577. 0126 001202 MOV (SP) +, STMPO : POP STACK INTO STPO, 
005776 042737 177 001202 BIC #*CCERRCK>, STMPO" LEAR UNWANTED BITS 
006004 005037 001204 CLR LOAD EXPECTED INTO $STMP1 
006010 023737 001202 001204 ¢ SIHe0, STH Test I SET 
908020 MOaGpe ERROR ‘we ?ERROR ERRCK CAN BE WRITTEN 
006022 00043? 005750 JMP 1$ ‘LOOP ON ERROR 
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21-OCT-81 09:21 PAGE 64 
TRANSMIT DATA BUFFER REGISTER FLOATING ONE'S TEST 


-SBTTL TRANSMIT DATA BUFFER REGISTER FLOATING ONE'S TEST 


SEQ 0064 


ptewenaneaenaeeeeereneenzane TEST 32 eeeneenaneeeeeeeeereeereete 
7* TRANSMIT DATA REGISTER (SECONDARY) 
s INCRE MENT ONE'S TEST 


FRRAAAAAEAAAAAEEEAAAARAAAAARARARAARAARARAAEARAAARAAARAARAAAAEAEREEEE 


; TEST 32 


2 
SEERA AAAAAEEAAAAERAAAAAEEAEAAAAAAAARAARAREAAAEREEAEREREAEREREREEE 
: OPE 





t$132: sc 
MOV #32. $TSTNA OAD THE NO. OF THIS TEST 
MOV #32. TSTNUM jy FOR TY VPE OUT 
MOV #B1T1,65$ SSTART WITH BIT 0 
MOV WSEC2.REGIST SAVE REGISTER FOR TYP OUT 
1$: MSTCLR 
64$: WRITE ,SEC2 
65$: 0 sDATA 
READ SEC2 READ THE DATA JUST WRITTEN 
MOV (SP) +,$TMPO POP STACK INTO $TMPO 
MOV 65$,$TMP1 EXPECTED 
CMPB ss STO, $T TEST IF CORRECT 
BEQ ES GO TO 
ERROR 10. : SECONDARY REGISTER INCREMENT ONE'S FAILURE 
JMP 1$ SLOOP ON ERROR 
66$: INC 65$ [LOAD NEXT DATA 
BIT #81T8,65$ ‘TEST IF ALL DONE 
BEQ 648 [NO GO TO 64$ 
2s: LRESET 
READ ,SEC2 zREAD AND TEST IF CLEARED 
MOV (SP) +,$TMPO 7;POP STACK INTO $TMPO 
CLR STMP1 :LOAD EXPECTED 
CMP STMPO,STMP1 STEST IF ALL CLEAR 
BEQ TST ts 
ERROR 11. ‘DID NOT CLEAR AFTER RESET 
JMP 2s ‘LOOP ON ERROR 


_ 
—~ 
™N 


oO 
FLV 
NARS 


= 
™Nm 


Suck 


a 
™ 
S 
Wan 


SSShaee SE 
IO & & Fee 


= 


= 
NVMUANN 


RR 


SNONALRES 


W=OWWWN = 


seesss 


L=] 
IN 


Sse 


83 
Ss 
NOUNNNNONG 


SoLcErAP rarer tit ct 


5 
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17:03 TRANSMIT STATUS REGISTER (SECONDARY) READ WRITE TEST SEQ 0065 


»SBTTL TRANSMIT STATUS REGISTER (SECONDARY) READ WRITE TEST 


aceon ene gee ener ata TEST 33 eeeneneceeceaeeeeeeeeeeeree 
* TRANSMIT gts SESESTER (SECONDARY) BIT TEST 
j*THIS TEST DOES A 
1. Oisk oe a ee Centre 


ie ; CLEAR AND A READ VERI 
i* - brite E AND A LINE RESET. THEN A READ VERIFY 
tt PEAR AE SEN RTE, ABB, RE TEEE SELLS 
; TEST 33 
ReeReRRekeeeekeeeeeeeeeeenenanaeeaneneneeneeeneeeeeeeeeeeneeere 
+$133: SCOPE 
000033 00110 MOV #33, STSTNM : LOAD THE NO. OF THIS TEST 
000033 0012 ~ MOV ; 3; TSTNUM :# FOR TYPE OUT 
000003 000001 ? WRITE  ,SEC3,TSOM :SET BIT TSOM 
READ “SECS TREAD VERIFY 
001202 MOV (SP) +, $TMPO :;POP STACK INTO $TMPO 
177776 001202 BIC #*°C<TSOM>,$TMPO :CLEAR UNWANTED 
1 001204 MOV #TSOM, STMP1 SLOAD EXPECTED 
001202 001204 CMP STMPO, STMP1 :TEST FOR A SET 
ERROR 5 ; TRANSMIT STATUS REGISTER TSOM WRITE FAILURE 
006214 a JMP 4s SLOOP ON ERROR 
000003 000000 WRITE ,SEC3,0 ;RESET BIT TSOM 
000003 READ; TREAD VERIFY 
901202 MOV (SP) +,$TMPO [POP STACK INTO $TMPO 
177776 001202 BIC #°C<TSOM>,$TMPO :CLEAR UNWANTED BITS 
001204 CLR [LOAD EXPECTED 
001202 001204 CMP STMPO,STMP1 [TEST FOR RESET 
BEQ $ SYES SKIP ERROR 
ERROR [TRANSMIT STATUS REGISTER TSOM FAILED TO CLEAR 
006214 ait JMP 4s SLOOP ON ERROR 
000003 000001 . WRITE ,SEC3,TSOM :WRITE TSOM 
5$: LRESET 
READ SECS ZREAD VERIFY 
001202 MOV (SP) +, $TMPO : POP STACK INTO STHPO 
177776 + 001202 BIC p2ccTéon STMPO SCLEAR UNWANTED BIT 
12 CLR 1 SLOAD EXPECTED 
001202. 001204 chp STNPO, STHP1 ;TEST FOR A RESET 
ERROR 8: ‘TRANSMIT STATUS REGISTER TSOM FAILED TO CLEAR AFTER RES 
006342 JMP $ [LOOP ONERROR 


peeenteeeneeeereeeereeeeeens TEST 34 seneenereeeeneeceeeeneeeene 
* TRANSMIT STATUS REGISTER (SECONDARY) BIT TEST 

:#THIS TEST DOES A 
:* WRITE AND A READ VERIFY 

:* 2: CLEAR AND A READ VERIFY 


ita 


CZKMDAO DMS11=DA STATIC MACY11 30A(1052) ances] -81 09:21 PAGE 66 
CZKMDA.P11 20-OCT-81 17:03 T STATUS REGISTER (SECONDARY) READ WRITE TEST SEQ 0066 
* 3. WRITE AND A LINE RESET THEN A READ VERIFY 
$e 
SRAAAAAAAARAARAERERERAERAARARERERARERARARAEARARARAREERRAREEARERREREEE 
4 3 TEST 34 
11 © RARER AAARAAAAEARAAAAARAAEARERERARARARARARAARARARARAERARARAARARRARARREREREEEE 
iF 006404 TS134: SCOPE 
13 006406 O12? 7 000034 00110 MOV #34, $TSTNM LOAD THE NO. OF THIS TEST 
14 006414 012737 000034 00126 MOV #34, TSTNUM tw FOR TYPE OUT 
15 006422 104417 4$: LRESET 
3018 006424 104416 900003 000002 WRITE SEE , TEOM :SET BIT TEOM 
17 006432 L042 00000 READ SEC TREAD VERIFY 
18 0064 8158 90108 MOV SP)+,$TMPO a3 POP STACK INTO $TMPO 
19 006442 042737 177775 001202 BIC secre on $STMPO :CLEAR UNWANTED 
20 006450 012737 2 001204 MOV #TEOM, STMP1 [LOAD EXPECTED 
21 006456 023737 001202 001204 CMP STMPO, STMP1 :TEST FOR A SET 
22 006464 001403 BEQ 1$ 
23 006466 104005 ERROR 5 s TRANSMIT STATUS REGISTER TEOM WRITE FAILURE 
3024 006470 000137 006422 JMP 4s [LOOP ON ERROR 
3025 006474 1$: 
26 006474 104416 000003 000000 WRITE  ,SEC3.0 :RESET BIT TEOM 
27 006502 104420 000003 READ ‘SEC [READ VERIFY 
3028 006506 012637 001 02 MOV (SP) +, $TMPO :;POP STACK INTO $TMPO 
29 006512 042737 177775 001202 BIC eC<TEOM>, STMPO :CLEAR UNWANTED BITS 
3030 006520 005037 0012 CLR T [LOAD EXPECTED 
3031 006524 023737 001202 001204 CMP STMPO,STMP1 STEST FOR RESET 
3032 006532 001403 BEQ 2$ 3YES SKIP ERROR 
3033 006534 104005 ERROR 5 TRANSMIT STATUS REGISTER TEOM FAILED TO CLEAR 
2034 00656 000137 006422 a JMP 4s [LOOP ON ERROR 
3032 00654 104416 000003 000002 WRITE  ,SEC3,TEOM :WRITE TEOM 
3037 006550 10441 5$: LRESET 
3038 006552 104420 000003 READ ,SEC3 ZREAD VERIFY 
3039 006556 012637 001202 MOV (SP) +,$TMPO i ZPOP STACK INTO STHPO 
3040 006562 042737 177775 001202 BIC #*C<TEOM>,STMPO ;CLEAR UNWANTED BITS 
3041 006570 005037 001204 CLR [LOAD EXPECTED 
3042 006574 023737 001202 001204 CMP STMPO,STMP1 3TEST FOR A RESET 
3043 006602 001403 BEQ TST35 
3044 006604 104010 ERROR 8. : TRANSMIT STATUS REGISTER TEOM FAILED TO CLEAR AFTER RES 
3045 006606 000137 006550 JMP 5$ SLOOP ONERROR 
3047 
3048 auamaaet Etudeat Guanes a TEST 35 sxexenaanaaaraaeakeeeeeeeeeee 
3049 RANSMIT STATUS REGISTER (SECONDARY) BIT TEST 
3050 sInts TEST DOES A 
51 ie . WRITE AND A READ VERIFY 
305 : > CLEAR AND A READ V 
305 8 ; WRITE AND A LINE RESET THEN A READ VERIFY 
3054 3 “OF BIT TXAB 
ae 2 TRAAAAARAAAAAAEAEEEAEEAAAARAEAERAERAAERERARAAREERERAEKEAERAREEREEREEREEE 
6 
3057 : TEST 35 
$080 s eRERERERERERERERERERERERERERAARERARREERERERREEREEREREEREEREEEEE 
3060 006612 000004 18135: SCOPE 
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CZKMDA.P11 20-OCT-81 17:03 TRANSMIT STATUS REGISTER (SECONDARY) READ WRITE TEST SEQ 0067 
1 006614 012737 5 00110 MOV #35, STSTNM LOAD THE NO. OF THIS TEST 
ea tiie 0012 MOV a3e7%e t# FOR TYPE OUT 
006630 104417 4$: LRESET 
104416 000003 000004 WRITE  ,SEC3,TXAB zSET BIT TXAB 
5 1044 4 R : TREAD VERIFY 
4 gi 6 20 MOV (SP) +,$TMPO :;POP STACK INTO $TMPO 
906650 737 «177 001202 BIC #°C<TKAB>,S$TMPO :CLEAR UNWANT 
54 o1 3 000004 01 04 MOV #TXAB,STMP1 TLOAD EXPECTED 
006664 23737 001202 001204 CMP STMPO, STMP1 :TEST FOR A SET 
006672 001403 BEQ 1$ 
71 006674 104005 ERROR 5 ; TRANSMIT STATUS REGISTER TXAB WRITE FAILURE 
7 906676 000137 006630 - JMP 4s [LOOP ON ERROR 
3074 006709 104416 000003 000000 WRITE  ,SEC3,0 zRESET BIT TXAB 
3075 006710 1044 0 3 READ, SREAD VERIFY 
76 006714 0126 00 202 MOV (SP) +,$TMPO :;POP STACK INTO $TMPO 
77 006720 042737 177773 001202 BIC #*C<TKAB>,$TMPO ;CLEAR UNWANTED BITS 
78 0067, 903057 001204 CLR $TMP SLOAD EXPECTED 
79 006732 023737 001202 001204 CMP STMPO,STMP1 STEST FOR RESET 
006740 001403 BEQ 2$ ZYES SKIP ERROR 
1 006742 104005 ERROR 5 TRANSMIT STATUS REGISTER TXAB FAILED TO CLEAR 
3082 006744 000137 006630 JMP 4s [LOOP ON ERROR 
3083 006750 2s: 
3084 006750 104416 000003 000004 WRITE ,SEC3,TXAB :WRITE TXAB 
3085 006756 104417 5$: LRESET 
3086 006760 104420 000003 READ ,SEC3 :READ VERIFY 
7 006764 012637 00120 MOV (SP)+,$TMPO :POP STACK INTO $STMPO 
006770 042737 177773 001202 BIC #*C<TKAB>, STMPO CLEAR UNWANTED BITS 
3089 006776 005037 001204 CLR $TMP1 [LOAD EXPECTED 
3090 007002 023737 001202 001204 CMP STMPO, STMP1 TEST FOR A RESET 
3091 007010 001403 BEQ S736 
3092 007012 104010 ERROR 5 : TRANSMIT STATUS REGISTER TXAB FAILED TO CLEAR AFTER RES 
3093 607014 000137 006756 JMP S$ SLOOP ONERROR 
3095 
3096 J AAAAAAAAAAEREAREREEEEEREREEE TEST 36 RAEAEAAAAAAAARAARARAAARARERAKEERE 
3097 :*TRANSMIT STATUS REGISTER (SECONDARY) BIT TEST 
3098 ssTHIS TEST DOES A 
3099 ie 1. WRITE AND A READ VERIFY 
3100 ie é- CLEAR AND A READ VERIFY 
3101 3 WRITE AND A LINE RESET THEN A READ VERIFY 
sor tt SRAAAAAARAAAAREEAEAEEAAAAAAAKEREAARAEEARARARARERARAREARAERAAEERARAAREEREE 
1 
3105 ; TEST 36 
3107 jteteenteneeeneeneeteeteetentereerenteneenternetententnetentens 
3108 007020 000004 § 736: SCOPE 
109 007022 012737 000036 001102 MOV #36, $TSTNM : LOAD THE NO. OF THIS TEST 
3110 007030 012737 060036 001262 MOV #36, TSTNUM :# FOR TYPE OUT 
112 907020. 194416 000003 oo0010 “S' —ERESE’ secs txGa :SET BIT TXGA 
118 7046 1 430 0003 READ SECS. 3READ V VERIFY 
114 007052 01 1208 MOV (SP) +,$TMPO :POP STACK INTO $TMPO 
115 007056 042737 177767 001202 BIC #*C<TKGA>,STMPO : tELEAR UNWANTED 
116 007064 012737 001204 MOV #TXGA,STMP1 SLOAD EXPECTED 
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CZKMDA.P11 20-OCT-81 17:03 TRANSMIT STATUS REGISTER (SECONDARY) READ WRITE TEST SEQ 0068 
117 00707, 23737 001202 001204 CMP STMPO,STMP1 :TEST FOR A SET 
118 0071 1403 BEQ 1$ 
119 007102 1 4 ERROR 5 3 TRANSMIT STATUS REGISTER TXGA WRITE FAILURE 
1s9 B0196 000137 007036 13 JMP 4$ sLOOP ON ERROR 
\s¢ 007110 104416 000003 000000 WRITE  ,SEC3,0 sRESET BIT TXGA 
125 007116 1044 00000 READ ‘ sREAD VERIFY 
124 007122 0126 1S MOV (SP)+,$TMPO 33POP STACK INTO STMPO 
125 007126 042737 177767 001202 BIC #*C<TXGA>,STMPO ;CLEAR UNWANTED BITS 
126 71 005037 001204 CLR $ sLOAD EXPECTED 
127 007140 023737 001202 001204 CMP STMPO,STMP1 sTEST FOR RESET 
128 007146 001403 BEQ $ sves SKIP 
1¢ 007150 104005 ERROR RANSMIT snes REGISTER TXGA FAILED TO CLEAR 
134 Bort 3e 0001357 007036 9 JMP 4$ ‘LOOP 
13 007156 eels 000003 000010 WRITE ,SEC3,TXGA sWRITE TXGA 
133 007164 10441 5$: LRESET 
134 71 Aose$o READ cS sREAD VERIFY 
135 007172 012637 A 33 MOV (SP) +, $TMPO POP STACK INTO $TMPO 
136 007176 042737 177767 001202 BIC BrCcTSGAD, STMPO ;CLEAR UNWANTED BITS 
137 7 005037 001204 CLR STMP1 sLOAD EXPECTED 
3138 007210 023737 001202 001204 CMP STMPO ,STMP1 TEST FOR A RESET 
3139 007216 001403 BEQ TST37 ee 
3140 007220 104010 ERROR 8. TRANSMIT STATUS REGISTER TXGA FAILED TO CLEAR AFTER RES 
3141 007222 000137 007164 JMP 5$ LOOP ONERROR 


CZ7KMDAO pasta a Sratis MACY11 a, & tie 09:21 PAGE 69 
1 17:03 C SECONDARY ADDRESS REGISTER (SECONDARY) FLOATING ONE'S TEST SEQ 0069 





CZ2KMDA.P11 
14 .SBTTL SYNC SECONDARY ADDRESS REGISTER (SECONDARY) FLOATING ONE'S TEST 
144 
145 FRARAAAAAAARAAAEREEAERERAERREE TEST 37 RAEAAAARAAAAARARAERAAAEAAAAAEE 
166 :*SYNC SECONDARY REGISTER (SECONDARY) 

14 zsINCR EMENT ONE'S TEST 

148 TRAAAARAARAARAAEAAEAERAAARARAAARAREAEARAARERAREARERAEEEEREREEREAEEE 
149 

130 ; TEST 37 

136 + var ~~ enon eemanaeanenennamemmaeneeeeeee 
15 007226 18137: $c 

154 007 012737 000037 001102 MOV #37, STSTNM : LOAD THE NO. A THIS TEST 
155 007236 019737 000037 001262 MOV #37. TSTNUM 7) FOR TYPE 

156 007244 01 030 000002 007270 MOV waitl ,65$ SSTART WITH fH BIT 0 

157 007252 012737 001240 MOV WSEC4.REGIST SAVE REGISTER FOR TYP OUT 

158 007260 000004 SC 

159 007262 104414 1$: MSTCLR 

160 007264 104416 000004 64$: WRITE ,SEC4 

161 007270 000000 65$: 0 zDATA 

lee 7272 1044 9 READ  ,SEC4 READ THE DATA JUST WRITTEN 
163 007276 0126 001203 MOV (SP) +,$TMPO ::POP STACK INTO $TMPO 

164 007 2 013737 007270 001204 MOV 65$,$TMP1 iL TED 

3165 007310 123737 001202 001204 c $TMPO,STMP1 :TEST IF CORRECT 

166 007316 001403 BEQ 66$ 

3167 007320 10401 ERROR 10. ; SECONDARY REGISTER INCREMENT ONE'S FAILURE 
3168 007322 000137 007262 JMP 1$ =LOOP ON ERR 

3169 7326 005237 007270 66$: INC 65$ ZLOAD NEXT DATA 

170 007332 032737 000400 007270 BIT #B1T8,65$ :TEST IF ALL DONE 

3171 007340 001751 BEQ 64$ =NO GO TO 64$ 

3172 007342 104417 2s: LRESET 

3173 007344 14420 000004 READ ,SEC4 ZREAD AND TEST IF CLEARED 

3174 007350 012637 001202 MOV (SP) +, $TMPO 3 POP STACK INTO $TMPO 

3175 007354 005037 001204 CLR sLOAD EXPECTED 

176 007 023737 001202 001204 CMP STMPO,STMP1 3TEST IF ALL CLEAR 

3177 007 001403 BEQ TST40 

3178 007370 104013 ERROR 11. :b1D NOT CLEAR AFTER RESET 

3179 007372 000137 007342 JMP 2$ [LOOP ON ERROR 
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noke turke 09:21 PAGE 70 
E CONTROL REGISTER (SECONDARY) READ WRITE TEST 


SEQ 0070 
.SBTTL MODE CONTROL REGISTER (SECONDARY) READ WRITE TEST 
Be —- 
J ARAAARAAAARAEAAEAEEEAEAAAEREREE T ST 40 RAEAARAARAAAARERERARAAAEAAEREEE 
[*MODE CONTROL REGISTER (SECONDARY) BIT TEST 
;*THIS TEST DOES A 
* 1. WRITE AND A READ VERIFY 
* g- CL CLEAR AND A READ VERIFY 
i of WRITE AND A LINE RESET THEN A READ VERIFY 
tt SRARAAAAEAEARAAAEAAEREEERAARARARARARRAERARAEAARAREREEAREEEKAEREEKEREEE 
: TEST 40 
§ fg RAAAERAERERAEEREREEREEEEEEERERAERAEREREREREERERREREREEREERRREREEEE 
TS1T40: SCOPE 
MOV #40, $TSTNM LOAD THE NO. OF THIS TEST 
MOV #40. TSTNUM ig FOR TYPE OUT 
4$: LRESET 
WRITE “SECS. PROTEX ;WRITE BIT PROTEX 
READ cS : RIFY 
MOV STMPO -;POP STACK INTO $TMPO 
BIC matt TMP CLEAR ED 
MOV es ZLOAD EXPECTED 
cmp Orme :TEST FOR A SET 
ERROR 6 ZMODE CONTROL REGISTER PROTEX WRITE FAILURE 
a JMP 4$ [LOOP ON ERROR 
; WRITE  ,SEC5S.0 ZRESET BIT PROTEX 
READ <SEC5 TREAD VERIFY 
MOV (SP)+,$TMPO :POP STACK INTO $TMPO 
BIC #*C<PROTEX>, staph" :CLEAR UNWANTED BITS 
CLR EXPECTED 
CMP STMPO,STMP1 eer FOR RESET 
BEQ 2$ SYES SKIP ERROR 
ERROR 6 [MODE CONTROL REGISTER PROTEX FAILED TO CLEAR 
1 JMP 4$ [LOOP ON ERROR 
; WRITE ,SECS,PROTEX  ;WRITE PROTEX 
5$: LRESET 
READ «SECS ZREAD VERIFY 
MOV zPOP STACK INTO $TMPO 
BIC pecphorene. stp’ -CLEAR UNWANTED BITS 
CLR STMP1 3LOAD EXPECTED 
cw $TMPO.STAP! 3TEST FOR A RESET 
ERROR 9. SMODE CONTROL REGISTER PROTEX FAILED TO CLEAR AFTER RESE 
JMP 5$ [LOOP ONERROR 


pekekaakakaakeekereteeanzane TEST 6] seanannaneaarereeraeerereeee 
+ *MODE CONTROL SESISTER (SECONDARY) BIT TEST 

;*THIS TEST DOES A 

o* 1. WRITE AND A READ VERIFY 

3* 2. CLEAR AND A READ VERIFY 
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4$: 


1$: 


2$: 
5$: 


PAGE 71 
CONTROL REGISTER (SECONDARY) READ WRITE TEST 





SEQ 0071 
* 3. WRITE AND A LINE RESET THEN A READ VERIFY 
* OF BIT PROTEY 
FERRARA AAAAAAAAAEEEEEEAAREREREREAAREERERAEREEERERAEREREREREEEEEE 
;__TEST 41 
jtesnanknenennennenensertereeenereennnnensteenentateeteteetetts 

SCOPE 
MOV #41, $TSTNM 3 LOAD THE NO. OF THIS TEST 
es #41, TSTNUM :# FOR TYPE OUT 
WRITE ,SECS,PROTEY  ;WRITE BIT PROTEY 
RE sREAD VERIFY 
MOV +,$T :POP STACK INTO $TMPO 
BIC #°C<PROTEY> . sTmPO > CLEAR TED 
MOV Y,$TMP1  ;LOAD EXPECTED 
CoP srnPd Othe :TEST FOR A SET 
ERROR 6 ZMODE CONTROL REGISTER PROTEY WRITE FAILURE 
JMP 4$ [LOOP ON ERROR 
WRITE ,SECS.0 RESET BIT PROTEY 
READ RIFY 
MOV (SP) +, $TMPO zPOP STACK INTO $TMPO 
BIC coker sri :CLEAR UNWANTED BITS 
CLR LOAD CT 
CMP STMPO,STMP1 ooPer FOR RESET 
BEQ 2$ 3YES SKIP ERROR 
ERROR 6 MODE CONTROL REGISTER PROTEY FAILED TO CLEAR 
JMP 4$ *LOOP ON ERROR 

ITE ,SECS,PROTEY #;WRITE PROTEY 
LRESET 
EAD, :READ VERIFY 
MOV (SP) +, $TMPO :POP STACK INTO STMPO 
BIC ecohorers. stp’ >CLEAR UNWANTED BITS 
CLR $TMP1 ZLOAD EXPECT 
CMP STMPO,STMP1 3TEST FOR A RESET 
BEQ TST42 
ERROR 9, {MODE CONTROL REGISTER PROTEY FAILED TO CLEAR AFTER RESE 
JMP 5$ SLOOP ONERROR 


pekaaakeaakeaeeeteeeeakenar TEST 42 saaneannaaneaaeeeaereaneeer 


CONTROL SesistER (SECONDARY) BIT TEST 


[*MODE C 

*THIS TEST DOES A 

; 1, WRITE AND A READ he at 
CLEAR AND A READ 


* VERIFY 
ie ¢: WRITE AND A LINE RESET THEN A READ VERIFY 


F BIT PROTEZ 


§ RARER AREREEEEEEEAREREREAAREREERAEERAEEREREREEREREREEEREEREEE 


:__TEST 42 


TITIIITILILLLE LETTE TLL LEE ELLE TLE TET Tee 


18142: 


SCOPE 
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CZKMDA.P11 O0-bcT obs yet MODE CONTROL REGISTER (SECONDARY) READ WRITE TEST SEQ 0072 
10014 012737 110 MOV #42, $TSTNM : LOAD THE NO. OF THIS TEST 
1 838 7 $b00e3 12 MOV rr fe Hed :# FOR TYPE OUT 
1 106417 4$: LRESET 
1 10441 5 000004 WRITE »SECS -PROTEZ ZWRITE BIT PROTEZ 
1 1 5 READ SEC ZREAD VERIFY 
1 1 6 1 MOV (SP) +,$TMPO :;POP STACK INTO $TMPO 
10050 7? 177 001202 BIC #*C<PROTEZ>, STMPO -¢ TED 
10056 012737 900004 901 04 MOV #PROTEZ,STMP1 LOAD EXPECTED 
10064 737 001202 001204 CMP STMPO, STMP1 :TEST FOR A SET 
1 010072 001403 BEQ 1$ 
: 10074 1 006 ERROR 6 :MODE CONTROL REGISTER PROTEZ WRITE FAILURE 
308 91907 000137 010030 ~ JMP 4$ ZLOOP ON ERROR 
305 010102 104416 5 000000 WRITE ,SECS,0 zRESET BIT PROTEZ 
306 10110 1044 9 5 READ ,SECS SREAD VERIFY 
307 010114 gi 6 901 08 MOV (SP) +,$TMPO -;POP STACK INTO $TMPO 
308 0101 7? 177 001202 BIC #°C<PROTEZ>, STMPO -CLEAR UNWANTED BITS 
309 0101 90 037 04 CLR 1 3LOAD EXPECTED 
310 0101 23737 001202 001204 CMP STMPO,STMP1 :TEST FOR RESET 
11 010140 001403 BEQ o$ :YES SKIP ERROR 
312 010142 104006 ERROR 6 [MODE CONTROL REGISTER PROTEZ FAILED TO CLEAR 
313 910144 000137 010030 = JMP 4$ [LOOP ON ERROR 
315 010150 104416 000005 000004 WRITE  ,SECS,PROTEZ  ;WRITE PROTEZ 
316 010156 10441 5$: LRESET 
317 010160 104420 000005 READ SECS ZREAD VERIFY 
318 010164 0126 901208 MOV (SP) +, $TMPO -;POP STACK INTO $TMPO 
319 010170 042737 177 001202 BIC #*°C<PROTEZ>, STMPO >CLEAR UNWANTED BITS 
320 010176 005037 001204 CLR $TMP1 ZLOAD EXPECT 
321 010202 023737 001202 001204 CMP $TMPO.STHP :TEST FOR A RESET 
322 010210 001403 BEQ TST4 33 
323 010212 104011 ERROR 9. 3MODE CONTROL REGISTER PROTEZ FAILED TO CLEAR AFTER RESE 
3324 010214 000137 010156 JMP 5$ [LOOP ONERROR 
3336 peekakaaakakkeeeeeeeeakaaaan TEST 43 RAERRAAARAAEEARAREARREEERREEKRE 
3328 [*MODE CONTROL REGISTER (SECONDARY) BIT TEST 
329 :*THIS TEST DOES A: 
330 8 1. WRITE AND A READ VERIFY 
331 8 . CLEAR AND A READ VERIFY 
333 8 . WRITE AND A LINE RESET THEN A READ VERIFY 
33 o 3f BIT NIDLE 
ate $3 RAEAAEAAARARAAEEEAEAAARARARAAEAEAKAEAEARARARAAAEEAAAEREAEEREREREREREEE 
33 
336 : TEST 43 
338 °  eReReReReReeReeeeeeeeeeeeeeeaeanataeeeaeeneeaneaneeeneneeererer 
339 010220 143: SCOPE 
340 0102 9 oN 000043 00110 MOV #43, STSTNM : LOAD THE NO. OF THIS TEST 
341 010 012737 000043 00126 MOV #43. TSTNUM *# FOR TYPE OUT 
342 010236 104417 : LRESET 
343 010240 10441 5 000010 WRITE ,SECS,NIDLE :WRITE BIT NIDLE 
344 010 46 1044e 5 READ SECS SREAD VERIFY 
345 01088 126 1208 MOV (SP)+,$TMPO 7:POP STACK INTO STMPO 
346 010256 737 177767? 001202 BIC #°C<NIDLE>, STMPO -CLEAR UNWANTED 
347 010264 012737 000010 001204 MOV WNIDLE,STMP1 : LOAD EXPECTED 


6 
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KMDA.P11 me toe ty 17:03 MODE CONTROL REGISTER (SECONDARY) READ WRITE TEST SEQ 0073 
1 3737 001202 001204 CMP STMPO,STMP1 :TEST FOR A SET 
1 1403 BEQ 1$ 
1 1 ERROR 6 ZMODE CONTROL REGISTER NIDLE WRITE FAILURE 
i 137 010236 - JMP 8 [LOOP ON ERROR 
1 10461 5 000000 WRITE  ,SECS.0 gRESET BIT NIDLE 
1 1044 5 READ SECS SREAD VERIFY 
1 gi 1 02 MOV (SP) +, STMPO 7:POP STACK INTO $TMPO 
1 7 001202 BIC #°C<NIDLE>,STMPO -CLEAR UNWANTED BITS 
1 037 0012 CLR TMP1 ZLOAD EXPE 
1 3737 001202 001204 CMP STMPO,STMP1 STEST FOR RESET 
1 1403 BEQ 2s SYES SKIP ERROR 
1 1 006 ERROR 6 [MODE CONTROL REGISTER NIDLE FAILED TO CLEAR 
01 000137 010236 a JMP 4$ [LOOP ON ERROR 
61 104416 000005 000010 WRITE  ,SECS,NIDLE ZWRITE NIDLE 
1 10641 5$: LRESET 
10 104420 000005 READ s ZREAD VERIFY 
10 0126 00120¢ MOV (SP) +, $TMPO ::POP STACK INTO STMPO 
910 76 042737 177767 001202 BIC #°C<NIDLE>, STMPO -CLEAR UNWANTED BITS 
10404 00 037 001204 CLR s ZLOAD EXPECT 
010410 023737 001202 001204 CMP STMPO,STMP1 :TEST FOR A RESET 
70 010416 001403 BEQ TST44 3: 
910420 104011 ERROR 9. sMODE CONTROL REGISTER NIDLE FAILED TO CLEAR AFTER RESET 
010422 000137 010364 JMP 5% SLOOP ONERROR 
FRRRAEAAREREEREREEEEREREKKREE TEST 44 saeaananaraaearaarareinrenee 
‘MODE CONTROL REGISTER (SECONDARY) BIT TEST 
:*THIS TEST DOES A: 
* 1. WRITE AND A READ VERIFY 
78 é- CLEAR AND A READ VERIFY 
i* + uae AND A LINE RESET THEN A READ VERIFY 
: SRAERAEAAARARAEAAAREREEERARERAEEAEEEAARAAEEAEAEAAARAAAEAEAEEAAAEEAEAAEEREKE 
: TEST 44 
bd 2 RERRRRERRERERERAEREREREEEAERRRERRRREREREREERAREREEREERAEREREEE 
010426 000004 1$144: SCOPE 
104 012737 000044 00110 MOV #44, $TSTNM : LOAD THE NO. OF THIS TEST 
010436 012737 000044 00126 MOV #44. TSTNUM :# FOR TYPE OUT 
010444 104417 4$: LRESET 
33 010446 10441 5 000020 WRITE ,SECS,SAM :WRITE BIT SAM 
4 010454 1044 5 READ; TREAD VERIFY 
393 010460 01 6 ? 901202 MOV (SP) +,$TMPO :;POP STACK INTO STMPO 
394 910464 04 7? 177 001202 BIC #°C<SAM>,STMPO :CLEAR UNWANTED 
395 0104 ie} 12737 000020 001204 MOV r MP SLOAD EXPECTED 
336 a103 3737 001202 001204 CMP $TMPO,STAPT STEST FOR A SET 
398 19819 1 ERROR 6 ZMODE CONTROL REGISTER SAM WRITE FAILURE 
399 910312 000959 010444 a J 4$ SLOOP ON ERROR 
01 010516 104416 000005 000000 WRITE  ,SEC5,0 :RESET BIT SAM 
02 910524 1044 5 READ ‘SECS SREAD VERIFY 
03 010530 0126 801 903 MOV (SP)+,$TMPO :;POP STACK INTO STMPO 
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CZ2KMDA.P11 Be tit recht MODE CONTROL REGISTER (SECONDARY) READ WRITE TEST SEQ 0074 
10536 7? 177757 001202 BIC #*C<SAM>,STMPO = CLEAR UNWANTED BITS 
1 34¢ 9 7 001204 CLR TMP LOAD EXPECTED 
1 7 001202 001204 CMP STMPO,STMP1 : TEST FOR RESET 
10554 001403 BEQ SYES SKIP ERROR 
1 356 ERROR [MODE CONTROL REGISTER SAM FAILED TO CLEAR 
09 10560 000137 010444 JMP 4$ SLOOP ON ERROR 
1 10 ; 416 000005 000020 WRITE ,SECS,SAM ZWRITE SAM 
le 10572 10441 5$: LRESET 
13 010574 1044 5 READ SECS ZREAD VERIFY 
14 +463 1 6 1 z MOV (SP) +, $TMPO :;POP STACK INTO $TMPO 
15 010604 7? 177 001202 BIC #°C<SAM>,STMPO CLEAR UNWANTED BITS 
Ig 10612 037 001 CLR $TMP1 LOAD c 
17 010616 023737 001202 001204 CMP STNPO,STHPI :TEST FOR A RESET 
18 010624 001403 BEQ TST4 i: 
19 010626 104011 ERROR 9. MODE CONTROL REGISTER SAM FAILED TO CLEAR AFTER RESET 
010630 000137 010572 JMP 5$ SLOOP ONERR 


skkkkkkkkakankakeneenkannane TEST 65 seaaaanaeeeeraereereneanene 


3*MODE CONTROL 7 (SECONDARY) BIT TEST 


* 1. WRITE AND A READ VERIFY 
7 - CLEAR AND A READ VE 
4 


BIFREUNSSVSVSERRAGLS 


2 RIFY 
34 ; ¢: WRITE AND A LINE RESET THEN A READ VERIFY 
r4 TRAAAAARAARAAARAEREREAAEAARAEAARARAREAERARAAREREREEEEEREEAREEEREREEEE 
: TEST 45 
° PITIIITITILITILI TELLTALE LLL LLL LLL LLL ELLE ELLE EL 
010634 000004 TS145: SCOPE 
010636 012737 000045 00110 MOV #45, $TSTNM : LOAD THE NO. OF THIS TEST 
10644 012737 000065 00126 MOV #45. TSTNUM :# FOR TYPE OUT 
10652 104417 4$: LRESET 
39 010654 106616 000005 000040 WRITE ,SECS,SSL :WRITE BIT SSL 
10662 1044 5 READ; TREAD VERIFY 
1 010666 o1 6 7 1208 MOV (SP) +,$TMPO :;POP STACK INTO $TMPO 
4 1067 37 (177 001202 BIC #°C<SSL>,$TMPO :CLEAR UNWANTED 
010700 01 3 000040 001204 MOV #SSL,STMP1 [LOAD EXPECTED 
010706 023737 001202 001204 CMP STMPO,STMP1 :TEST FOR A SET 
5 010714 001403 BEQ 1$ 
46 010716 1 006 ERROR 6 ZMODE CONTROL REGISTER SSL WRITE FAILURE 
He 9 000137 010652 oe JMP 4$ SLOOP ON ERROR 
9 010724 104416 000005 000000 WRITE  ,SECS5,0 :RESET BIT SSL 
50 010732 1044 9 000005 READ SEC [READ VERIFY 
51 0107 1 6 001202 MOV (SP) +, STMPO :;POP STACK INTO $TMPO 
3 01074 7? 177 001202 BIC #°C<SSL>,$TMPO :CLEAR UNWANTED BITS 
53 01075 037 1204 CLR MP [LOAD EXPECTE 
54 010754 023737 001202 001204 CMP STMPO,STMP1 [TEST FOR RESET 
55 010762 001403 . BEQ 2$ [YES SKIP ERROR 
36 10764 1 006 ERROR 6 *MODE CONTROL REGISTER SSL FAILED TO CLEAR 
37 19788 000137 010652 an JMP 4$ [LOOP ON ERROR 
59 010772 104416 000005 000040 WRITE  ,SEC5,SSL :WRITE SSL 


an 
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ZKMDA.P11 ~0O-5c1 81 rats MODE CONTROL REGISTER (SECONDARY) READ WRITE TEST SEQ 0075 
11 104417 5$: LRESET 
1 1 READ zREAD VERIFY 
11 1 6 MOV (SP)+,$TMPO :POP STACK INTO. STHPO 
1101 7 y 001202 BIC #*C<SSL>,STMPO ZELEAR UNWANTE 
110 g 7 901 304 CLR TMP SLOAD EXPECTED. 
11024 7 001 001204 CMP STMPO,STMP1 3TEST FOR A RESET 
110 1403 BEQ TST46. 
11034 104011 ERROR 9 zhone CONTROL REGISTER SSL FAILED TO CLEAR AFTER RESET 
11036 000137 011000 JMP 5% [LOOP ONERROR 
J ARARAEAAEEARAREREREEEREREREE TEST 46 REREAAAAAAERAAAARAAAARAEARERE 
[*MODE CONTROL REGISTER (SECONDARY) BIT TEST 
;eTHIS TEST DOES 
te 1. WRITE AND A READ VERIFY 
* ; CLEAR AND A READ VERI 
* + urate AND A LINE RESET. THEN A READ VERIFY 
°* 
tt SRAEARAAARAARAAAEEAERAEAAAEAAERERAAARAAAAAAARAARAEEAAAEAREAEAEREREKRAREEEE 
;_TEST 46 
jissenastuasavnnanaannneeneeusnacensnasenseascescensensensenscese 
011042 000004 15146: SCOPE 
011044 012737 000046 001102 MOV #46,STSTNM LOAD THE NO. OF THIS TEST 
011052 012737 000046 001262 MOV #46. 1TSTNUM <# FOR TYPE OUT 
011060 104417 48: LRESET 
011062 104416 000005 000100 WRITE ,SECS,PROTO :WRITE BIT PROTO 
011070 104420 5 READ SECS 3READ V VERIFY 
011074 0126 7? 00120 MOV )+, STMPO POP STACK INTO $TMPO 
011100 042737 177677 001202 BIC PCPROTOD EAR UNWANTED 
011106 012737 100 001204 MOV nei i ;LOAD exbecren 
011114 023737 001202 001204 CMP MeO $f MP1 : TEST FOR A SET 
O11122 001403 BEQ a 
011124 104 ERROR 6 ZMODE CONTROL REGISTER PROTO WRITE FAILURE 
011126 000137 011060 - JMP 4$ [LOOP ON ERROR 
O11133 104416 000005 000000 WRITE  ,SEC5S,0 sRESET BIT PROTO 
O1114 104420 5 READ SEC READ VERIFY 
11144 01 6 1208 MOV (SP) +,$TMPO ::POP STACK INTO STMPO 
011150 37 177677 001202 BIC #°C<PROTO>.STMPO -CLEAR UNWANTED BITS 
g1115 037 001204 CLR $ EXPECTED 
111 3737 001202 001204 CMP STMPO,STMP1 test FOR RESET 
0111 1403 BEQ 2$ ‘YES SKIP ERROR 
O1117 104 ERROR 6 *MODE CONTROL REGISTER PROTO FAILED TO CLEAR 
911174 000137 011060 - JMP 4$ SLOOP ON ERROR 
011200 104416 000005 000100 WRITE ,SEC5S,PROTO ZWRITE PROTO 
11 10441 5$: LRESET 
11210 1044 5 READ “Secs ZREAD VERIFY 
11214 01 6 1 3 MOV STMPO [POP STACK INTO STMPO 
11 7 177 001202 BIC PCcPROTO>, STMPO >CLEAR UNWANTED BITS 
11 ? 001 04 CLR ZLOAD EXPE 
11 023 7 001202 001204 CMP Hs ,STMP1 ;TEST FOR A RESET 
01126 140 BEQ 
011242 104011 ERROR SMODE CONTROL REGISTER PROTO FAILED TO CLEAR AFTER RESET 





f ny ODast =p pratis macatt 30A(1052) noke 


3516 0112464 0001357 011206 


-OCT-81 09:21 PAGE 76 
MODE CONTROL REGISTER (SECONDARY) READ WRITE TEST 


JMP 5$ :LOOP ONERROR 


SEQ 0076 
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1 0-1-8! 1503 CHARACTER LENGTH REGISTER (SECONDARY) READ WRITE TEST SEQ 0077 


-SBTTL CHARACTER LENGTH REGISTER (SECONDARY) READ WRITE TEST 
pteaanenaaeneeeeeeeenenanene TEST 67 saeeneneneeeneaaeeeereeenee 
 *CHARACTER oy ig REGISTER (SECONDARY) BIT TEST 
;*THIS TEST DOES A 

1. WRITE AND A READ pe ay A 


te ¢- Cl CLEAR AND A READ VERIFY 
7* of WRITE AND | A LINE RESET THEN A READ VERIFY 
*@ 
tt SRAAAAAAAAARAAAAAAAAAAAAEAARAARARAARARARERARARARARAAEARAAEERAEEAEEE 
;_TEST 47 
ae ot ee 
147: SCOPE 
339 tet 000047 00110 MOV #47,STSTNM LOAD THE NO. OF THIS TEST 
12737 000047 0012 MOV #47, 1TSTNUM :# FOR TYPE OUT 
266 104417 48: LRESET 
0 104416 000007 000001 WRITE ,SEC7,RDATA1 =; WRITE BIT RDATAI 
Kk: 1044 ? READ .SEC7 TREAD VERIFY 
0126 001202 )+,$ PoP STACK INTO STMPO 
042737 177776 001202 BIC #*C<RDATAI> sTmPb TED 
14 012737 1 001204 MOV #RDATA1, STMP1 OAD EXPE 
2 025737 B09 obe 001204 cmp SIMO. STAPT steer FOR A "SET 
339 104007 ERROR 7 ZCHARACTER LENGTH REGISTER RDATA1 WRITE FAILURE 
334 000137 011266 “ JMP 4$ ZLOOP ON ERROR 
340 104416 000007 000000 WRITE  ,SEC7.0 :RESET BIT RDATAI 
1044 9 7 READ “SEC? ZREAD VERIFY 
35 0126 1202 MOV (SP) +, $TMPO :POP STACK INTO $TMPO 
356 737 177776 001202 BIC PCRBATAT>, stmpb’ “CLEAR UNWANTED BITS 
364 905037 001204 CLR T ZLOAD EXPECTED 
370 0237 7 001202 001204 CMP SIMPO, STMP1 3TEST FOR RESET 
376 001403 BFQ [YES SKIP ERROR 
400 104007 ERROR [CHARACTER LENGTH REGISTER RDATA? FAILED TO CLEAR 
402 000137 011266 7 JMP 4$ [LOOP ON ERROR 
406 104416 000007 000001 WRITE ,SEC7,RDATA1  ;WRITE RDATAI 
414 10441 5$: LRESET 
41 Lo4ee0 000007 READ SEC? ZREAD VERIFY 
422 01 6 1202 MOV (SP) +, STMPO :POP STACK INTO $TMPO 
426 7 177776 001202 BIC pCeRbATAIS. stmpb’ -CLEAR UNWANTED BITS 
4 037 001204 CLR TMP1 ZLOAD EXPEC 
440 025737 001202 001204 cw $TMPO.STAP! [TEST FOR A RESET 
486 104098 ERROR eI. : CHARACTER LENGTH REGISTER RDATA1 FAILED TO CLEAR AFTER 
452 000137 011414 JMP S [LOOP ONERROR 


poacasoqooosoooososoqonssoes TEST 50 eeeneeeeeeceneneneaenerenne 
2 *CHARACTER Lewere REGISTER (SECONDARY) BIT TEST 

;*THIS TEST DOES A 

se WRITE AND A READ VERIFY 

:* 2: CLEAR AND A READ VERIFY 
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P11 B0-0cT 8) yet CHARACTER LENGTH REGISTER (SECONDARY) READ WRITE TEST SEQ 0078 
i 3. “ HRITE AN AND DA LINE RESET THEN A READ VERIFY 
Sta ETE, BA. SE I 
; TEST 50 
Led POUT TT TTT TTT TTT TTT TT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT 
11456 TS$T50: SCOPE 
11 12737 90005 901102 MOV #50, STSTNM z LOAD THE NO. OF THIS TEST 
11466 12737 5 12 MOV #50. TSTNUM :# FOR TYPE OUT 
11474 104417 4$: LRESET 
011476 10641 7 000002 WRITE ,SEC7,RDATA2 ;WRITE BIT RDATA2 
11504 1044 7 READ ,SEC7 TREAD VERIFY 
11510 01 6 001202 MOV (SP) +,$TMPO zPOP STACK INTO STMPO 
11514 3 177 001202 BIC #*C<RDATA2>, STMPO’ -CLEAR UNWANTED 
115 12737 900908 901 04 MOV WRDATA2,STMP1 os 
a3 023737 001 1204 CMP STNPO, SMP! :TEST FOR A SET 
1154 MO LOoF ERROR 7 : CHARACTER LENGTH REGISTER RDATA2 WRITE FAILURE 
011342 000137 011474 ae JMP 4$ [LOOP ON ERR 
011546 10441 000000 WRITE ‘SEE 0 RESET yBLT RDATAZ 
11560 o168 901202 MOV (SP)+,$TMPO :POP STACK INTO $TMPO 
115 4 042737 Vv 1075 001202 Bic PPccaOnIneS STH : gCLEAR UNWANTED BITS 
011576 023737 001202 001204 CMP STMPO,STMP1 : TEST FOR RESET 
011604 001403 BEQ 2$ SYES SKIP ERROR 
011606 104007 ERROR 7 : CHARACTER LENGTH REGISTER RDATA2 FAILED TO CLEAR 
911610 000137 011474 ~ JMP 4$ [LOOP ON ERR 
4 011614 104416 000007 000002 a. WRITE | »SEC7,RDATA2  ;WRITE RDATA2 
Q11624 104620 Tr .--_ RED SEC? sREAD VERIFY 
0116 0126 001202 a MOV (SP)+,$TMPO :POP STACK INTO $TMPO ; 
011634 042737 177775 001202 ~- BIC #*C<RDATA2>, STMPO’ -CLEAR UNWANTED BITS 
011642 905037 001204 - CLR STMP1 ;LOAD EXPECTE 
10 011646 023737 001202 001204 CMP STMPO.STMP1 ;TEST FOR A RESET 
3611 011654 001403 BEQ $751. 
1 011656 104025 pana ERROR zi é : CHARACTER. LENGTH REGISTER RDATA2 FAILED TO CLEAR AFTER 
14 ’ : 
16 AITITITILLILiititiiitti ttt TEST 51 REARAAERAAAARAEEAAEREEEEAREEE 
1 + *CHARACTER LENGTH REGISTER (SECONDARY) BIT TEST 
18 ;*THIS TEST DOES A 
19 3* 1. WRITE AND A READ VERIFY 
20 3* g- CL CLEAR AND A READ VERIFY 
21 : :* A wii AND DA Line RESET” THEN A READ VERIFY 
5 t: i Nt he te ie Set Mj Ma ee, EE REITER 
5 : TEST -51 
$ eeReREREReReeeeeeeeeeeeeeeeeeeneaneeeeeeeeneeeeeeeeererereereer 
28 011664 000004 78151: SCOPE 





on 
33 
3 
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20-0C CHARACTER LENGTH REGISTER (SECONDARY) READ WRITE TEST SEQ 0079 





KMDA.P11 T=81 17:0 
11666 12 7 51 00110 MOV #51,$TSTNM : LOAD THE NO. OF THIS TEST 
116 4 012737 51 0012 MOV 4#51.TSTNUM :# FOR TYPE OUT 
1 011702 106617 4$: LRESET 
11706 10441 7 000004 WRITE ,SEC7,RDATA3S ;WRITE BIT RDATA3 
011712 1044 7 READ ,SEC7 [READ VERIFY 
011716 01 6 iF MOV (SP) +, $TMPO :;POP STACK INTO $TMPO 
4 O17 042737 177 001202 BIC #*C<ROATA3>, STMPO -CLEAR UNWANTED 
11 01 7 000004 001204 MOV MRDATA3,STMP1 LOAD EXPECT 
37 011736 023737 001202 001204 CMP STMPO,STMP1 :TEST FOR A SET 
38 011744 001403 BEQ i$ - 
39 011746 104007 ERROR 7 ‘ : CHARACTER LENGTH REGISTER RDATA3 WRITE FAILURE 
9 911730 000137 011702 « JMP 4s [LOOP ON ERROR 
¢ 011754 104416 000007 000000 WRITE  ,SEC7,0 ZRESET BIT RDATA3 
011762 Losseo 000007 READ, [READ VERIFY 
3644 011766 126 ? 901208 MOV (SP)+,$TMPO :;POP STACK INTO $TMPO 
3645 011772 042737 177773 001202 BIC #*C<RDATA3>, STMPO :CLEAR UNWANTED BITS 
3646 012000 005037 001204 CLR TMP1 iL ¢ 
012004 023737 001202 001204 CMP STMPO,STMP1 STEST FOR RESET 
8 012012 00140 BEQ $ TYES SKIP ERROR 
9 012014 10400 ERROR S CHARACTER LENGTH REGISTER RDATA3 FAILED TO CLEAR | 
3630 oi O16 000137 011702 * JMP 4$ SLOOP ON ERROR 
365¢ 912022 104416 000007 000004 WRITE  ,SEC7,RDATA3 ;WRITE RDATA3 
53 012030 10441 5$: LRESET 
3654 012032 104420 000007 READ ,SEC7 ZREAD VERIFY 
55 012036 012637 00120 MOV (SP) +,$TMPO ::POP STACK INTO $TMPO 
3656 012042 042737 177773 001202 BIC #*C<RDATA3>, ST. -CLEAR UNWANTED BITS 
3657 012050 005037 001204 CLR 1 ZLOAD EXPECT 
3658 012054 023737 001202 001204 CMP STMPO,STMP1 : TEST FOR A RESET 
3659 012062 001403 BEQ TST52 33 
3660 012064 104025 ERROR 21. : CHARACTER LENGTH REGISTER RDATA3 FAILED TO CLEAR AFTER 
3661 012066 000137 012030 JMP 5$ ‘LOOP ONERROR 
3668 
3664 SRARAAEERAEERAEREREREREEEREREE TEST 52 RARAAAARAEAARAARAARARARAERAKERE 
3665 7 *CHARACTER LENGTH REGISTER (SECONDARY) BIT TEST 
3666 '*THIS TEST DOES A: 
3667 * 1. WRITE AND A READ VERIFY 
3668 * ; CLEAR AND A READ VERIFY 
3669 ie . WRITE AND A LINE RESET THEN A READ VERIFY 
3670 8 OF BIT TDATA1 
eo) F TRARAAAARARAEAAEAEEERAEKAEAEAARAAEREREREEERARAKRAREEAAAEEAEEEREREEEKE 
ier 3: TEST 52 
3675 ee RRRERRERRRREREREREREEEEEREREERERRERERERERREEEREREERERERREREEEEE 
3676 012072 000004 TST52: SCOPE 
3677 012074 012737 52 001102 MOV #52, $TSTNM : LOAD THE NO. OF THIS TEST 
3678 012108 012737 000052 001262 MOV #52. TSTNUM *# FOR TYPE OUT 
79 012110 104417 4$: LRESET 
012112 104416 000007 000040 WRITE ,SEC7,TDATAl  :WRITE BIT TDATA1 
1 012120 loaeeo 000007 READ : VERIFY 
3e88 OIS186 pade37 57997 001202 Be BACCTBATATS STMPO’ CLEAN CnsenreD 
012136 B53 000040 001204 MOV #TDATA1,$TMP1 LOAD EXPECTED 





CZKMDAO DMS11=-DA sratit macrtt 
CZKMDA.P11 20-OCT-81 17:0 
5 012144 3737 001202 
12182 961403 
; , } 000137 012110 
90 0121 10441 000007 
st O13i70 1ouee8 90007 
g3 G1820 Gears? 177537 
44 01221 023737 001202 
96 Bis 20 bat 
3697 012222 10400 
3698 012224 000137 012110 
99 012230 
700 012230 19e718 000007 
701 012236 10441 
702 012240 10seeo 
70. 3 1S$e6 0126 00120 
3704 012250 Sheree 17773 
3705 012256 00 O37 0012 
3706 012262 023737 001202 
3707 012270 001403 
3708 012272 194025 
3709 012274 000137 012236 
3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
372 
372 
3724 012300 000004 
3725 012302 012737 000053 
3726 012310 012737 000053 
727 012316 106417 
728 012320 104416 000007 
729 Biss 6 soseed 000007 
3530 3 332 0126 a4 
731 12336 04 ats 17767 
3732 012344 012737 000100 
3733 012352 023737 001202 
3734 012360 001403 
3735 012362 104007 
736 012364 000137 012316 
737 012370 
738 012370 10441 
739 012376 IOSe6 
3740 012402 0126 001202 


30A(1052) 21-OCT-81 09:21 PAGE 80 
CHARACTER LENGTH REGISTER (SECONDARY) READ WRITE TEST SEQ 0080 
001204 cmp STMPO, STAMP! :TEST FOR A SET 
ERROR 7 CHARACTER LENGTH REGISTER TDATA1 WRITE FAILURE 
* JMP 4$ SLOOP ON ERROR 
000000 WRITE  ,SEC7.0 :RESET BIT TDATA1 
READ  |SEC7 TREAD VERIFY 
MOV (SP) +, $TMPO ::POP STACK INTO $TMPO 
001202 BIC #°CCTBATA1>,STMPO gc AR UNWANTED BITS 
001204 CMP STMPO,STMP1 [TEST FOR RESET 
BEQ $ TYES SKIP ERROR 
ERROR [CHARACTER LENGTH REGISTER TDATA1 FAILED TO CLEAR 
a JMP 4$ [LOOP ON ERROR 
000040 WRITE  ,SEC7,TDATA1 WRITE TDATA1 
5$: LRESET 
READ SEC? ZREAD VERIFY 
MOV (SP) +, $TMPO *;POP STACK INTO $TMPO 
001202 BIC #°C<TDATA1>, STMPO >CLEAR UNWANTED BITS 
CLR TMP sLOAD EXPECTED 
001204 CMP STMPO.STMP1 [TEST FOR A RESET 
ERROR ‘ [CHARACTER LENGTH REGISTER TDATA1 FAILED TO CLEAR AFTER 
JMP 5$ SLOOP ONERROR 


001102 
001262 


000100 


001202 
001204 
001204 


000000 


peerkaakkeakeeerererereaneen TEST 53 saeaeaeanaaecaaanreeeneeene 


: *CHARACTER LENG 
s*THIS TEST DOES A: 


TH REGISTER (SECONDARY) BIT TEST 


1. WRITE AND A READ VERIFY 


* ; CLEAR AND A READ VERIFY 
* . WRITE AND A LINE RESET THEN A READ VERIFY 
* OF BIT TDATA2 
3 REARAEARAAAAEAKAAAEERARAAAAAARAAEEEAARAREAEERERERERERAEEEAEEEREREREERE 
: TEST 53 
22 RERRRRARRERERERRRREREREEEEEREAEERARAERREREEREEEEEEREREREEREREE EE 
15753: SCOPE 
MOV #53, $TSTNM : LOAD THE NO. OF THIS TEST 
MOV #53. TSTNUM ‘# FOR TYPE OUT 
4$: LRESET 
WRITE ,SEC7,TDATA2  ;WRITE BIT TDATA2 
RE SEC7 [READ VERIFY 
MOV (SP) +, $TMPO -;POP STACK INTO $TMPO 
BIC #*C<TDATA2>, STMPO > CLEAR ED 
MOV MTDATA2,$TMP1 LOAD EXPECTED 
CMP $TMPO, STAPT :TEST FOR A SET 
ERROR 7 : CHARACTER LENGTH REGISTER TDATA2 WRITE FAILURE 
- JMP 4$ ‘LOOP ON ERROR 
WRITE  ,SEC7,0 :RESET BIT TDATA2 
READ, RE F 
MOV (SP) +,$TMPO ::POP STACK INTO $TMPO 
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CZ2KMDA.P11 ey 17:03 CHARACTER LENGTH REGISTER (SECONDARY) READ WRITE TEST SEQ 0081 
12406 042737 177677 001202 BIC #*C<TDATA2>, $TMPO *CLEAR UNWANTED BITS 
12414 99 9 7 0012046 CLR $TMP1 ZLOAD EXPECTED 
124 3737 001202 001204 CMP STMPO,STMP1 [TEST FOR RESET 
44 012426 00140 BEQ SYES SKIP ERROR 
124 10400 ERROR [CHARACTER LENGTH REGISTER TDATA2 FAILED TO CLEAR 
46 i os 000137 012316 - JMP 4$ [LOOP ON ERROR 
124 104416 000007 000100 WRITE ,SEC7,TDATA2  ;YRITE TDATA2 
0124644 10441 58: LRESET 
O12446 Losee0 900007 READ SEC? ZREAD VERIFY 
012452 0126 120 MOV (SP) +,$TMPO :;POP STACK INTO $TMPO 
012456 042737 177677 001202 BIC #*C<TDATA2>, $T -CLEAR UNWANTED BITS 
012464 00 037 001204 CLR T ;LOAD EXPECTED 
912470 023737 001202 001204 CMP STMPO,STMP1 :TEST FOR A RESET 
12476 001403 BEQ TST54 33 
012500 104085 ERROR 21. [CHARACTER LENGTH REGISTER TDATA2 FAILED TO CLEAR AFTER 
012502 000137 012444 JMP $ ‘LOOP ONERROR 


pteeraeaaaaarereereaazanenae TEST 54 seaeaenaeeeereaeearereeeeene 


2 *CHARACTER LENGTH REGISTER (SECONDARY) BIT TEST 
2*THIS TEST DOES A: 
;* 1. WRITE AND A READ VERIFY 


st - CLEAR AND A READ VERIFY 

hed « WRITE AND A_LINE RESET THEN A READ VERIFY 
s@ OF BIT TDATAS 

PETTITT irre ie iti iii iriiiiiitiitiitiiity 


: TEST 54 





° 
§ FARRER AEEREEREERAEEREREEEARAREAEREREAEKRAERAERERREEREEREREREEREREE 


772 012506 TST54: SCOPE 
773 012510 012737 000054 001102 MOV #54,$TSTNM : LOAD THE NO. OF THIS TEST 
774 012516 012737 000054 001262 MOV #54. TSTNUM :# FOR TYPE OUT 
3775 012524 104417 4$: LRESET 
3776 012526 104416 000007 000200 WRITE ,SEC7,TDATA3 ;:WRITE BIT TDATA3 
3777 0125346 Lose 000007 READ .SEC7 : RIFY 
3778 012540 012637 001202 MOV (SP) +,$TMPO :;POP STACK INTO $TMPO 
3779 012544 042737 177577 001202 BIC #*C<TDATA3>, $TI -CLEAR UNWANTED 
3780 012552 012737 000200 001204 MOV ATDATA3,$TMP1 ;LOAD EXPECTED 
781 012560 023737 001202 001204 CMP STMPO, STMP1 STEST FOR A SET 
782 012566 001403 BEQ 1$ 
783 012570 104007 ERROR 7 ;CHARACTER LENGTH REGISTER TDATA3 WRITE FAILURE 
78 01g37¢ 000137 012524 - JMP 4$ [LOOP ON ERROR 
786 012576 104416 000007 000000 WRITE  ,SEC7,0 ZRESET BIT TDATA3 
787 012604 104420 000007 READ - TREAD VERIFY 
3788 012610 01 6 901202 MOV (SP) +,$7MPO -;POP STACK INTO $TMPO 
3789 012614 37 (177 001202 BIC #*C<TDATA3>, STMPO >CLEAR UNWANTED BITS 
790 or 2 037 001204 CLR $TMP ; E 
791 012626 023737 001202 001204 CMP STMPO,STMP1 :TEST FOR RESET 
792 0126 140 BEQ es :YES SKIP ERROR 
793 012636 104007 ERROR : CHARACTER LENGTH REGISTER TDATA3 FAILED TO CLEAR 
73 012640 000137 012524 - JMP 4$ [LOOP ON ERROR 
796 012644 104416 000007 000200 WRITE ,SEC7,TDATA3  ;WRITE TDATA3 
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1 17:0 CHARACTER LENGTH REGISTER (SECONDARY) READ WRITE TEST SEQ 0082 
04417 5$: LRESET 
READ seC7 ZREAD VERIFY 
1208 MOV (SP) +, $TMPO :POP STACK INTO $TMPO 
7? 177 001202 BIC FccTBATASD STP -CLEAR UNWANTED BITS 
7 901204 CLR TMP OAD EXPEC 
1202 001204 che STMPO. STHPI STEST FOR A RESET 
ERROR é1. : CHARACTER LENGTH REGISTER TDATA3 FAILED TO CLEAR AFTER 
012652 JMP $ SLOOP ONERROR 
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a i oor TRANSMIT AND RECEIVE INITIALIZATION TEST 









La Wry. 
peaeeankeaakerereeeeeeaaneee TEST 55 ae eeeeeeeeeeekeeeeeeeeeeene 
19 ; *TRANSMIT AND RECEIVE INITIALIZATION TEST. 
\ EsTHIS gd with SYNC THE SEND RECEIVE LOGIC. 
Mg ;*THIS TEST WILL PERFORM THE FOLLOWING SEQUENCE: 
1 3* 
13 3* 1. CLEAR THE SYNC REGISTER 
18 3* ¢: ISSUE A PASTER CLEAR 
19 3* « SET PROT Pp 
7* 4. LOAD SYNC CHARACTER INTO SYNC SECONDARY 
1 3* REGISTER 
; 7* 5. SET TENA,RENA,MB,MC 
3* $- SET TSOM 
4 3° - TEST FOR T RESET 
5 o* 8. STEP THE Crock 
3826 3* 9. TEST FOR TBMT SET OT AC SET 
3827 2* 10. RESET TSOM, TEST THAT TBMT RESET, STEP 
3828 7* THE CLOCK 6 (10) AND LOCK FOR THE FIRST 
3829 2* S/F ON RECEPTION OF THE FIRST SYNC 
3830 3* 11. STEP THE CLOCK 2 (10) AND LOOK FOR 
31 3* S/F RESET, THEN STEP THE CLOCK 6 (10) FOR 
32 3* FOR A T S/F TO BE SET ON RECEPTION 
3833 :* OF THE SECOND SYNC. 
3834 7* \¢- LOAD STX INTO TDB 
3835 o* 13. STEP THE ye r (10) 
3836 3* 14. LOOK FOR S$ O BE RESET 
3837 7* 15. STEP THE Clock 6 (10) 
3838 3* 16. LOAD A DATA CHARACTER INTO TDB 
3839 3* AND TRANSMIT 
Sent le 17. —_ - aie Narita INTO TDB 
3842 3* 18. LOAD A DATA CHARACTER INTO TDB 
3843 3* AND TRAN 
3844 3* 19. TEST FOR THE FOLLOWING CONDITIONS: 
3845 3* A. RAC TO BE SET 
3846 3* B. RDA TO BE SET 
7 = 20. READ THE DATA REGISTER TO HOLD THE STX CHARACTER 
: f ERRARAAAAAARAREREEEARARAERERARERARAAERARERERREREEREREREEEEEEEEE 
$850 ; TEST 55 
see jteenneeneneenentententeneennnnnrenneneeneereneenteteerentenens 
5 o12714 18155: SCOPE 
54 012716 012737 000055 001108 MOV #55, $TSTNM 3; LOAD THE NO. OF THIS TEST 
55 Bisres 012737 000055 00126 MOV #55, TSTNUM 34 FOR TYPE OU 
56 012732 012737 012740 001106 MOV #1$,SLPADR 3SET RETURN + wt] TO 1$ 
57 bitte 104414 1$: MSTCLR Ys A MASTER CLEAR 
4 012742 104416 000005 000100 WRITE ,SECS,CCP ae PROTOCOL = meeisten 
012750 104416 000026 WRITE ;LOAD SYNC SECONDARY ADDRESS REGISTER 
1 012756 104416 0014 $b0S34 WRITE pea TENA! RENA!MB!MC TENABLE THE FOLLOWING: 
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0 TRANSMIT 


17: AND RECEIVE INITIALIZATION TEST SEQ 0084 
: TENA 
: RENA 
; 63 MC 
000003 000001 WRITE  ,SEC3,TSOM [SET TSOM 
1 READ PRI1$ ZREAD REGISTER 
1 g MOV (SP) +,$TMPO :;POP STACK INTO $TMPO 
1 901202 BIC #°C<TBMT>, $TMPO :CLEAR UNWANTED BIT 
000020 00120 BIT #TBMT ,STMPO :TEST TAMT 
BEQ $ ZRESET SKIP ERROR 
001202 1204 MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 
001204 001206 MOV STMP1,STMP ZLOAD EXPECTED ALSO 
000020 001206 BIC #TBMT .STMP “L CTED 
ERROR Ie. :TBMT NOT RESET AFTER TSOM AND TENA 
012740 JMP 1 LOOP ON ERROR 
000004 3$: STEP 282 OEP THE CLOCK 2 TICKS 
000013 READ; TREAD REGISTER 
001202 MOV (SP)+,$TMPO :;POP STACK INTO $TMPO 
177757 001202 BIC #°C<TBMT>,$TMPO :CLEAR UNWANTED BITS 
000020 001202 BIT #TBMT ,STMPO sTEST TAMT 
BNE 4$ SSET SKIP ERROR 
001202 001204 MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 
001204 001206 MOV STMP1,STMP ZLOAD EXPECTED ALSO 
000020 001206 BIS ATBMT STP =L CTED 
ERROR 13. :TBMT FAILED TO SET WITH TSOM SET 
SAND CLOCK STEPPED 2 TIMES 
012740 a JMP 1$ SLOOP ON ERROR 
000002 000002 WRITE  ,SEC2,STX ZLOAD START OF TEXT CHARACTER 
000016 STEP {782 SSEND FIRST SYNC CHARACTER 
1 READ ,PRI13 sREAD REGISTER 
901202 MOV (SP)+,$TMPO :;POP STACK INTO $TMPO 
17776? 001202 BIC #°C<SF>,$TMPO :CLEAR UNWANTED BITS 
000010 001202 BIT #SF ,STMPO sTEST SF 
:SET SKIP ERROR 
001202 001204 MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 
001204 001206 MOV STMP1.STMP2 ZLOAD EXPECTED ALSO 
10 001206 BIS #SF ,STMP2 : EXPECTED 
ERROR 15. :S/F DID'NOT SET AFTER SYNC SENT 
012740 JMP 1$ 
000003 000000 6$: WRITE  ,SEC3,0 zRESET TSOM 
20 STEP 58.8 [SEND SECOND SYNC 
1 READ ;PRI13 SREAD REGISTER 
191589 00120 BIC ASCKSES STHPO  ZELEAR UNGANTED Bite 
000010 $0130 BIT #SF ,STMPO ‘ TEST SF Pie 
001202 001204 MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 
1204 0012 MOV STMP1.STMP2 ;LOAD EXPECTED ALSO 
10 001206 BIS ASF ,STMP2 ; EXPECTED 
ERROR 15. zS/F DID’ NOT SET AFTER SECOND 
SYN 
012740 “i JMP 1$ SLOOP ON ERROR 
00002 STEP 22 zSTEP CLOCK 11 TICKS 


00001 READ  <PRI13 TREAD REGISTER 





H 7 
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1 30-5ct ob mets TRANSMIT AND RECEIVE INITIALIZATION TEST SEQ 0085 
1 12637 001 MOV (SP) +, $TMPO :;POP STACK INTO $TMPO 

1 7 907608 901202 BIC #°C<SF>  STAPO [CLEAR UNWANTED BITS 

1 7 000010 001 BIT #SF ST sTEST SF 

1 14 4 BEQ 7$ TRESET SKIP ERROR 

1 137 1202 001204 MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 
13352 013737 001 001 06 MOV STMP1.STMP2 ZLOAD EXPECTED ALSO 

1 7 10 001206 BIC aSF ,STMP2 : EXPECTED 

1 1040 ERROR 16. 7S/F DID NOT RESET AFTER 1 CLOCK 
1 ne 000137 012740 =. JMP 1$ [LOOP ON ERROR 

13374 106416 000101 WRITE  ,SEC2,°A ZLOAD DATA #1 

13402 104421 2 STEP 18.* :SEND CHARACTER 

1 104416 000101 WRITE ,SEC2,"A SLOAD DATA #2 

13414 104421 STEP ° 8B & :SEND CHARACTER 

134 104416 000101 WRITE  ,SEC2,°A [LOAD DATA #3 

1 104421 STEP ;°8.% [SEND CHARACTER 

013432 104416 000101 WRITE ,SEC2,"A 

1 104421 000004 STEP 52s 

1 1044 13 READ ,PRI13 ZREAD REGISTER 
013450 91 001 MOV (SP)+,$TMPO ::POP STACK INTO STMPO 
013454 7 17777 OO 1S 05 BIC #*C<RAC!RDA>,$T :CLEAR UNWANTED BITS 

oI 62 032737 00120 BIT #RAC, STMPO : RAC 

13470 001014 BNE $ [SET SKIP ERROR 

013472 013737 001202 001204 MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 
013500 013737 001204 001206 MOV STMP1 .STMP2 ZLOAD EXPECTED ALSO 

013506 052737 000004 001206 BIS WRAC, STMP sLOAD EXPECTED 

013514 104021 ERROR 17. ZRECEIVER FAILED TO BECOME ACTIVE 

SAFTER DATA SENT 

01351 000137 012740 - JMP 1$ SLOOP 

13522 032737 000001 001202 BIT #RDA, STMPO :TEST RDA 

13530 001014 BNE 9$ SSET SKIP ERROR 

0139 13737 001202 001204 MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 
13540 013737 001204 001206 MOV STMP1.$TMP2 ZLOAD EXPECTED ALSO 

013546 052737 000001 001206 BIS #RDA, STMP2 ZLOAD EXPECTED 

013554 104022 ERROR 18. ;RECEIVE DATA AVAILIBLE DID 

[NOT SET AFTER DATA SENT 

13556 000137 012740 a JMP 1$ [LOOP ON ERROR 

1 365 104420 000000 READ SECO :READ THE DATA RECEIVED 

1 366 012637 001202 MOV (SP) +, STMPO :;POP STACK INTO $T 

13572 012737 900026 001204 MOV #SYN, $TMP1 sLOAD EXPECTED DATA 

13600 023737 001202 001204 $TMPO,STMP1 + COMPARE 

013606 1403 BEQ TST56 3 

01361 104024 ERROR ’ [BATA SEND DOES NOT COMPARE 
13612 000137 012740 JMP SLOOP ON TEST 


skkkkkhkeakkakeneeneeaaanaae TEST 56 seanananeeeneraarareeeeeene 


; # TRANSMIT AND RECEIVE INITIALIZATION TEST. 
*THIS TEST WILL SYNC THE SEND RECEIVE LOGIC. 
:*PROTOCOL = 

:*THIS TEST WILL PERFORM THE FOLLOWING SEQUENCE: 


oOo 
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oO 
“i 








7 
CZKMDAO DMS11-DA STATIC macyit FOACTESE) 21-OCT-81 09:21 PAGE 86 
CZKMDA.P11 20-0CT-81 17:05 RANSMIT AND RECEIVE INITIALIZATION TEST SEQ 0086 
EAR THE ADDRESS REGISTER 
SUE A_PASTER ae ae 
T PROTOCOL = BOP, AND SET 
CONDARY ADDRESS E 
HE ADDRESS INTO THE SYNC SECONDARY 
NA 


T 

TER 
ENA,RENA,MB MC 
SOM 


FOR TBM ia a P 
THE CLOCK 
4 OR 


panne 


Ss 
T 
T 


AANAANANAD™ ANOS 


—-+ONDM=ammmm 


TeMT sr ‘AND D TAC SET 


T 
THE CLOCK 14 (10) FOR TRANSMIT 
LAG AND ADDRESS AND LOOK FOR S/F 


ONTROL BYTE OF ZERO INTO THE TDB 


—=—90ONOuW ££ Wh 
—™Oex ee 2 


mu-~ 0-4 


E 
P 
F 


O*NAMNMNaAaAO 


(10) 
A_CHARACTER INTO TDB 
AND_TRANSMIT 
17. LOAD_A DATA CHARACTER INTO TDB 
AND_TRANSMIT 
18. _— A DATA CHARACTER INTO TDB 
19. TEST FOR | Re; aoe CONDITIONS: 
A. RAC TO BE SET 
B. RDA TO BE SET 
C. RSOM TO BE SET 
20. READ THE DATA_REGISTER TO HOLD THE CONTROL 
CHARACTER OF ZERO 


SRRAERAAARARAEAERAAERERERAAAAERAARERARAERAAEAAAEREREREREEAEREREEEE 





2aenepnenepenneneneeeee eee eee eeneenennennanananen 


400 
4008 ‘o's TEST 56 

4010 +  RRERRRAERERERARRERREREEEEERRARREREREREEERERERERERRRReeReEEEeEEe 

4011 013616 TS156: SCOPE 

4012 013620 012737 000056 901102 MOV #56, STSTNM : {boa THE NO. OF THIS TEST 

4013 013626 012737 90005 00126 MOV #56. TSTNUM # FOR TYPE OU 

4014 013634 012737 013642 001106 MOV #1$.SLPADR :SET RETURN ADDRESS TO 1$ 

4015 013642 104414 1$: MSTCLR TISSUE A MASTER CLEAR 

4016 013644 104416 000005 000020 WRITE ,SECS,BOP!SAM SET ROE” CONTROL REGISTER 

4018 : SET SAM BIT 

4019 013652 104416 000004 000376 WRITE  ,SEC4,376 ZLOAD SYNC SECONDARY ADDRESS REGISTER 
4020 pets 104416 000014 000321 WRITE  <PRI14,TENA!RENA!MB!MC ZENABLE THE FOLLOWING: 

4092 3 RENA 

40, 3 AND MC 

4024 013666 10441 3 000001 WRITE  ,SEC3,TSOM “SET T 

4025 0136 4 1044 1 READ “PRI 13, 3READ REGISTER 

40, 6 013700 01 6 1 02 MOV (SP :POP STACK INTO $TMPO 

40, 013704 7? 17775 1202 BIC pectbare + STMPO : tELEAR AR UNWANTED BITS 

4028 01 rie 032737 000020 001202 BIT #TBMT ,STMPO 3 T 

4029 013720 001414 BEQ 3$ ZRESET SKIP ERROR 
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30-Oct-81 17:0 TRANSMIT AND RECEIVE INITIALIZATION TEST SEQ 0087 


ssessenesenanene 


P11 

1 13737 991 2 001 MOV TMPO,STMP1 -PREPARE TO REPORT ERROR 
1 01 13737 001 04 1 MOV TMP 1, STMP. ZLOAD EXPECTED ALSO 

137 737 1 BIC #TBMT.STMP *LOAD EXPECTED 

13744 10401 ERROR 12. :TBMT NOT RESET AFTER TSOM AND TENA 
4 13746 000137 013642 JMP 1 :LOOB, ON ERROR 

13752 104421 38: STEP = , 282 ZSTEP THE CLOCK 2 TICKS 

13756 1044 9 13 READ PRI13 TREAD REGISTER 

1 1 6 1 08 MOV (SP) +, STMPO 7;POP STACK INTO $TMPO 

1 766 7? 177 001202 BIC #*C<TBMT>,$TMPO :CLEAR UNWANTED BITS 

13774 032737 20 00120 BIT #TBMT ,$T :TEST TBMT 

14002 1014 BNE 7SET SKIP ERROR 

014004 13 7 001202 001204 MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 

014012 013737 001204 001206 MOV STMP1,STMP ZLOAD EXPECTED ALSO 

0140. 52737 000020 001206 BIS #TBMT.STMP : EXPECTED 

014026 104015 ERROR . :TBMT FAILED TO SET WITH TSOM SET : 

tAND CLOCK STEPPED 2 TIMES 

914030 000137 013642 w JMP 1$ [LOOP ON ERROR 

014034 104416 000003 WRITE -$EC3.0 :RESET TSOM 

014042 104416 000002 000376 WRITE  ,SEC2,376 sLOAD THE ADDRESS 

014050 104421 900016 STEP 57.# ZSEND FLAG 

14054 104420 00001 READ ,PRI13 TREAD REGISTER 

14060 o1 6 90120 MOV (SP)+,$TMPO :;POP STACK INTO $TMPO 

14064 37 177767 001202 BIC #°C<SF>,$TMPO CLEAR UNWANTED BITS 

9140 2 032737 10 001202 BIT #SF ,STMPO TEST 

14100 001014 BNE $ :SET SKIP ERROR 

014102 013737 001202 001204 MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 

014110 013737 001204 001206 MOV STMP1.S$TMP2 ZLOAD EXPECTED ALSO 

014116 052737 000010 001206 BIS WSF ,STMP2 ZLOAD EXPECTED 

014124 104016 ERROR 16. :S/F_DID NOT SET AFTER FLAG + ADDRESS 

mrei8s 000137 013642 7 JMP 1$ 

014132 104416 000002 000000 WRITE -$6 02.0 ZLOAD CONTROL CHARACTER 

014140 1046¢1 900028 STEP 52 SSTEP CLOCK 11 TICKS 

014144 104420 1 READ ,PRI13 sREAD REGISTER 

014150 012637 001202 MOV (SP)+,$TMPO :;POP STACK INTO $TMPO 

014154 042737 177767 00120 BIC #*°C<SF>,$TMPO CLEAR UNWANTED BITS 

914162 32737 000010 00120 BIT #SF ,STMPO sTEST SF 

0141 1614 BEQ SRESET SKIP ERROR 

01417 013737 001202 001204 MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 

014 13737 001204 001206 MOV STMP1.$TMP2 ZLOAD EXPECTED ALSO 

O14 06 042737 10 001206 BIC #SF ,STMP2 sLOAD EXPECTED 

14214 104020 ERROR 16. S/F DID NOT RESET AFTER 1 CLOCK 

O14 J 000137 013642 JMP 1$ [LOOP ON ERROR 

014 104416 2 000101 WRITE  ,SEC2,°A ZLOAD DATA #1 

14 1064¢1 02 STEP -8.% [SEND CHARACTER : 

14 104416 ; 000101 WRITE  ,SEC2,°A [LOAD DATA #2 

14242 1046¢1 STEP 58.8 ‘SEND CHARACTER 

14246 104416 000101 WRITE + SEC fA sLOAD DATA #3 

014254 104421 STEP .8.* [SEND CHARACTER 

014260 104416 000101 WRITE sé fA 

014266 104421 STEP ° 2s 
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AO DMS11=DA STATIC MACY71 30A(1052) 21-OCT-81 09:21 PAGE 88 
P11 eee 17:03 TRANSMIT AND RECEIVE INITIALIZATION TEST 
14 044 1 READ PRI13 ZREAD REGISTER 
14276 01 1 9 MOV (SP)+,$TMPO ::POP STACK INTO $TMPO 
14 7? 177 901202 BIC #°C<RAC!RDA>, STMPO :CLEAR UNWANTED BITS 
1431 56737 000004 001 BIT #RAC,STMPO TEST RA 
14 1 9 ; 901202 001 04 MOV STMPO,STMP1 EPARE TO REPORT ERROR 
14326 013737 001204 001206 MOV STMP1 .$TMP2 ZLOAD EXPECTED 
14 52737 000004 001206 BIS #RAC,$TMP2 : EXPECTED 
14342 104021 ERROR 17. :RECEIVER FAILED TO BECOME ACTIVE 
TAFTER DATA SENT 
4 4 000137 013642 - JMP 1$ [LOOP ON ERROR 
14 26 032737 000001 001202 BIT #RDA, STMPO :TEST RDA 
1435 1014 BNE 9$ [SET SKIP ERROR 
14 13 7 001202 001204 MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 
14 13737 0012046 001206 MOV STMP1 .STMP2 ZLOAD EXPECTED ALSO 
14374 052737 000001 001206 BIS #RDA, STMP2 iL CTE 
14402 104022 ERROR 18, :RECEIVE DATA AVAILIBLE DID 
[NOT SET AFTER DATA SENT 
146404 000137 013642 ss JMP 1$ SLOOP ON ERROR 
14410 104420 1 READ  ,SEC1 ZREAD REGISTER 
14414 0126 1202 MOV (SP) +, $TMPO ::;POP STACK INTO $TMPO 
014420 042737 177776 001202 BIC #°C<RSOM>,STMPO CLEAR UNWANTED BITS 
014426 032737 000001 901202 BIT #RSOM, STMPO 3 
014434 001014 'SET SKIP ERROR 
014436 013737 001202 001204 MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 
014444 013737 001204 001206 MOV STNP) STARS ZLOAD EXPECTED ALSO 
014452 052737 000001 001206 BIS #RSOM, STMP 2L XPECTED 
014460 104023 ERROR 19. zRSOM FAILED TO SET 
014462 000137 013642 ‘a JMP 1$ SLOOP ON ERROR 
014466 104420 000000 READ SECO :READ THE DATA RECEIVED 
014472 01 6 001202 MOV (SP) +, $TMPO :;POP STACK INTO $TMPO 
014476 012737 000376 001204 MOV #376, $TMP1 [FIRST DATA CHARACTER IS ADDRESS 
014504 023737 001202 001204 CMP $TMPO, STMP1 : COMPARE 
014512 001403 BEQ TST57 3 
014514 104024 ERROR 20. [DATA SEND DOES NOT COMPARE 
014516 000137 013642 JMP 1$ SLOOP ON TEST 
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DRSTI=pA STATIC MACYI1 SOA(1052)_ 21-OCT-81 09:21. PAGE 89° 
“MO~bc Toby IPs ne OF MESSAGE TEST SEQ 0089 


~SBTTL END OF MESSAGE TEST 


pteneanannananreceerenenanne TEST 57 seencaneeeeeaeeereereeeeeet 


2*END OF MESSAGE TEST. 
*THIS TEST WILL PERFORM THE END 
; Pad THE MESSAGE FOR PROTOCOL = BOP 


jeTHIS TEST WILL PERFORM THE FOLLOWING SEQUENCE: 





fe 1. MASTER CLEAR 
* ¢- SYNC THE SEND RECEIVE LOGIC 
ie ‘ TRANSAT DATA CHARACTERS 
7* 4. TEST FOR RAC 
* 5. WHEN LOADING THE THIRD DATA CHARACTER 
be SET TEOM 
8 $. READ THE DATA AND DISCARD 
7* ; ACCEPT THE CRC CHECK CHARCATERS 
:* TEST FOR REOM SET 
$3 ReRReeeeeeeeeeteeeenanareneteeneneeeneeeneneneaeeeeeeereeeees 
;_TEST 57 
eegsnnsbencediannabnenetnentatenenedesnemennnneneemenenanesnnns 
4522 909004 +8157: SCOPE 
45246 Oe 37 000057 001102 MOV #57, $TSTNA THE NO. OF THIS TEST 
4532 012737 000057 00126 MOV #57. TSTNUM Ps POR TYPE OUT 
4540 104414 101$:  MSTCLR ZCLEAR THE KMC11 
454 903037 14674 1$: CLR 50$+ 
45 5037 015 CLR 11$+ 
4552 005037 015054 CLR 52$+ 
4556 104416 7 000000 WRITE +$ECZ 0 ZSET CHARACTER LENGTH 10. 8 BITS 
4364 104416 000005 000000 WRITE °SEC5S.BOP ;LOAD CONTROL REGIS 
4572 104416 000014 000321 WRITE ‘PRI14,TENA!RENA! ime !mc ZENABLE THE FOLLOWING: 
; RENA 
; MAINTENANCE BITS: MB, MC 
4600 104416 000003 000001 WRITE “SECS, .TSOM [SET TSOM 
104421 2$: STEP ‘STEP THE CLOCK 
4612 1044 9 1 READ PRI13 TREAD THE STATUS OnE ee 
461 0126 120 MOV (SP) +,$TMPO : POP SI ACK INTO $T 
4 95 37 001202 BIT sTBAT, *STMPO TEST FOR SUPER EMP 
te Wouese cere * SEC ND ¢ ONT IME STEPPING. we mem 
4640 104416 fit id WRITE ~ SECS, 8 SRESET TS 
4646 104421 900002 3$: STEP [STEP THE CLOCK ONCE 
4652 1044 9 90001 READ PRI13 ;READ THE STATUS REGISTER 
46 126 901202 MOV ‘bart STMPO :POP STACK INTO $T 
32737 10 001202 BIT #SF ,STMPO TEST FOR 
46 1017 BNE 43 
467 1 5627 000000 50S: INCB ‘ 
1508 bn37 ; 90120 01 04 MOV $TMPO,STMP1 
4706 0137 7 00120 1206 MOV $T ¢STMP2 
4714 052737 10 001206 BIS ASF STMP 
4722 104016 ERROR 14, 7S/F DID NOT SET AFTER FLAG SENT 


CZKMDAO 11=DA STATIC MACY11 30A(1052) 21-0C 
C KMDA.PII 30-be1-81 17:03 END OF 
4181 014724 000137 014542 
a 14 
41 14 1 1 
4 14 1044 1 
4185 014740 01 $ 
41 14744 7 001202 
SB BIE SEE aoone ono 
SB BIG SEIS SRST BERD toe 
HI BitE EES coon 
419 \srr8 126 120 
4193 01500 $8 
4194 aE se 4 1 34 000090 11$: 
4195 015010 001347 
rhb 1501 ies es 3 
419 15014 00013 gies 
4198 015020 104416 000002 + 
4199 015 104421 13$: 
4200 015032 1044 1 
4201 0150 $158 120 
4202 01504 32737 000010 001202 
4 at op 9S3 
4 15052 105227 000060 52$: 
ee Bk 
i307 O18 000137 1Aaee 
ey BM 
4210 015076 059 37 000001 001202 14$: 
4211 015104 001750 
esi¢ 13196 soseg® 000000 
4213 015112 012637 001202 
4214 015116 000743 
4215 0151 15$: 
$56 0151 104421 000004 
4217 015124 1044 000001 
4218 0151 0126 M18 
4219 015134 042737 177775 00120. 
4220 Biate 32737 000002 00120 
4221 1515 iors 
$556 015152 013737 001608 ot ES 
4223 0151 13737 001204 001206 
4224 015166 052737 000002 001206 
4225 BETES 104025 
422 13178 000157 014542 
$55 31268 16$: 
4228 015202 000400 


4 
T-81 :21. PAGE 90 
MESSAGE ies? 
JMP 


7 


ee 


SEQ 0090 
1$ ZLOOP ON ERROR 

STEP —s 2 ZSTEP THE CLOCK ONCE 
READ PRI13 SREAD THE STATUS REGISTER 
MOV (SP)+,$T 3;POP STACK INTO $T 
ei! #TBMT ST ZTEST FOR BUFFER EMPTY 
WRITE  ,SEC2,°A ZLOAD A DATA CHARACTER 
it dRDA, $THPO : TEST FOR DATA AVAILIGLE 
READ SECO ;READ THE DATA REGISTER 
MOV (SP) +, STMPO 7;POP STACK INTO $T 
BR 128 
INCB #0 
ERROR 34. :DEVICE 1S HUNG 
JMP 1$ [LOOP ON ERROR 
WRITE ~$EC3. TEOM -END THE MESSAGE 
STEP); ZSTEP THE CLOCKONCE 
READ = ,PRI13 TREAD THE STATUS REGISTER 
MOV (SP) +,$TMPO +;POP STACK IN 
BIT #SF ,STMPO [TEST FOR SF AFTER TEOM SENT 
BNE 15$ ZYES BRANCH 
INCB #0. 
ERROR 22. :NO S/F AFTER TEOM SET 
JMP 1$ [LOOP ON ERROR 
READ ,PRI13 
MOV (SP) +, $TMPO z:;POP STACK INTO STMPO 
ei! #RDA, STAPO :TEST FOR DATA 
READ SECO yREAD THE DATA 

V (SP) +,STHPO ::;POP STACK INTO STMPO 
STEP 6 
READ ‘SEC ZREAD REGISTER 
MOV (SP) +, STMPO :;POP STACK INTO STMPO 
BIC #°C<REOM>, STMPO :¢ TED B 
BIT ne .STAPO : TEST RE 
BNE 1 :SET SKIP ERROR 
MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 
MOV STNP! STAMP? ZLOAD EXPECTED ALSO 
BIS #REOM, ST *L Cc 
ERROR 1. ;REOM FAILED TO SET AFTER END OF MESSAGE 
JMP $ [LOOP ON ERROR 
eR TST60 38 


ptaeeaeeeaeaeeeereteeaaaenee TEST 60 seenecananenenenanenegeeenee 


2*END OF MESSAGE TEST. 

s*THIS TEST WILL PERFORM THE END 

:s0F THE MESSAGE FOR PROTOCOL = CCP 

S*THIS TEST WILL PERFORM THE FOLLOWING SEQUENCE: 


Se a 


CZKMDAO_DMS11=DA STATIC mr yi1 cmcteeee” kof lets i! i, PAGE a” 





CZ2KMDA.P11 20-OCT-81 17:03 OF MESSAGE T a. 
7 3* 7 
ie 1. MASTER CL 
9 * ¢: SYNC THE END RECEIVE LOGIC 
40 * . TRANSMIT 3 DATA CHARACTERS 
1 ;* 4. TEST FOR RAC AND RDA 
4¢ 3* 5. WHEN LOADING THE THIRD DATA CHARACTER 
424 * SET TEOM 
64 * $. READ THE DATA AND DISCAR 
45 i* . ACCEPT THE CRC CHECK CHARC ATERS 
46 3 8. TEST FOR RESYNC OF THE LINE BY TESTING S/F 
4, gs TRRAAAAAAARAAAAAAEAAEERARAEAAEAARARARERAAREAERAERARAEEAAREERERAAEEEE 
4248 
rs a TEST 60 
51 saeaunbansseeneannnneeeeueenneeeneeeeeeeeeeseenteneneeneeteeee 
4 32 015204 $160: | § 
4253 015206 lef 7 000060 901102 MOV #60,$TSTNM : LOAD THE NO. OF THIS TEST 
4254 O15214 012737 000060 00126 MOV #60. TSTNUM ‘# FOR TYPE OUT 
4255 015222 104414 101$:  MSTCLR ZCLEAR THE KMC11 
4256 013204 005037 01535 1$: CLR 50$+ 
4257 015230 005037 01547 CLR 11$+ 
4258 019254 005037 01554 CLR 52$+ 
4259 015240 104416 000007 000000 WRITE ~SEC7,0 3SET CHARACTER LENGTH TO 8 BITS 
4260 015246 104416 000005 000100 WRITE opecarece “LOAD MODE CONTROL REGISTER 
4261 015254 104416 000004 000026 WRITE SECS ;LOAD A SYNC CHARACTE 
426 015262 104416 000014 000321 WRITE “BRITE. TENA!RENA! imB!MC ZENABLE THE FOLLOWING: 
4264 3 RENA 
4265 ; MAINTENANCE BITS: MB, MC 
4266 015270 104416 000003 000001 WRITE  ,SEC3,TSOM [SET TSOM 
4267 015276 104421 900002 2s: STEP 52 [STEP THE CLOCK ONCE 
4268 015302 14420 00001 READ PRI13 ;READ THE He. STATUS REGISTER 
4269 015306 0126 001208 MOV (SP)+,$TMPO POP STACK INTO $ TPO 
4270 015312 032737 000020 001202 BIT #TBMT.$TMPO iTEST FOR BUFFER EMP 
4271 015 001766 BEQ 2$ NO CONT INUE STEPPING. THE CLOCK 
427 013322 104416 000002 000002 WRITE  ,SEC2,STX [LOAD A CHARACTER 
4273 015330 104421 00000 3$: STEP 52 ; STEP THE CLOCK ONCE 
4274 015334 104420 00001 READ ,PRI13 :READ THE STATUS REGISTER 
4275 015340 0126 901208 MOV (SP)+,$TMPO STACK IN TO $TMPO 
4276 015344 0507 7 000010 001202 BIT #SF ,STMPO ‘fest FOR S/F 
4277 015352 001015 BNE 4$ 
4278 015354 105227 000000 50$: INCB #0 
4279 015360 001363 BNE bt} 
4280 01356 0137 7? 00120 1204 MOV STMPO,STMP1 
4281 015370 013737 00120 1206 STMPO. sTMP2 
4282 015376 052737 000010 001206 BIS ASF STMP 
4288 015404 104017 a ERROR is, :S/F DID NOT SET AFTER SYNC SENT 
4285 o1sc06 104416 900003 000000 WRITE  ,SEC3,0 :RESET TSOM 
4 86 015414 104421 00 7$: STEP 52 SSTEP THE CLOCK ONCE 
4287 015420 1044 9 0001 READ ‘PRI13 3READ THE STATUS REGI TER 
4288 0134 4 O12 120 MOV (SP) +, $TMPO - POP STACK INTO $TMP 
4289 015430 032737 000020 001202 BIT #TBMT.STMPO TEST OR BUFFER EMPTY 
rk breeze Mbaene 000101 CRITE SEC2,°A :LOAD A DATA CHARACTER 
4292 015446 033959 $p00e4 001202 10$: BIT BRDAS $TMPO :TEST FOR DATA AVAILIBLE 





CZKMDAO DMS11=DA STATIC MACY11 30A(1052) 21-0C 
CKMATPIT  DO-Octe8) 17 c08 END OF 


1 
Pa ere eee 
? , sat 1 
4 1 $0 1 204 000000 
4 15474 8) ? 
4 1 tA 1 O86 
4 15500 000137 015224 
4301 015504 104416 000003 
G 15512 104421 00000 
& giae58 1044 ! 00001 
4304 3132 $156 ak 3 
4305 015526 032737 1 
4306 0155 op toss 
4307 015536 105227 000000 
4308 SET as 001007 
rit 15544 1008s 
43°0 312268 0001 015224 
4311 015552 104420 000013 
4 is 012228 $is$ ? 001202 
4313 015562 032737 000001 
4314 015570 001750 
4315 015572 104420 000000 
4316 015576 012637 001202 
4317 015602 000743 
4318 015604 
4319 015604 000400 


000002 igs: 


001202 


528: 


001202 14S: 


15$: 


8 
T-81 09:21 PAGE 92 
MESSAGE TEST 
BEQ 11$ 
READ SECO 
V (SP) +, $TMPO 
12$ 
INCB 
7$ 
ERROR 34. 
JMP 1$ 
WRITE  ,SEC3,TEOM 
STEP °2 
READ  -{PRI13 
MOV (SP)+,$TMPO 
BIT aSF ST 
BNE 15$ 
INCB #0 
E 14$ 
ERROR 22. 
JMP 1$ 
READ PRI13 
MOV (SP) +, $TMPO 
BIT #RDA, STMPO 
BEQ 3$ 
READ SECO 
MOV (SP)+,$7™P0 
13$ 
BR TST61 


;READ THE DATA REGISTER 
33POP STACK INTO $T 


sDEVICE IS HUNG 


; E 
MESSAGE 

sSTEP THE 

TREAD THE STATUS REGISTER 


: % 
S TEST FOR SF AFTER TEOM SENT 


3NO S/F AFTER TEOM SET 
st RR 


zzPOP STACK INTO $TMPO 
:TEST FOR DATA 


READ THE DATA 
:3POP STACK INTO STMPO 





SEQ 0092 
LOOP ON ERROR 
sEND THE 

; 4 CLOCKONCE 
33 STACK INTO STMPO 
;YES BRANC 

OOP ON ERROR 

DAT 


=u 


c 8 
CZKMDAO_DMS11=DA STATIC MACY11 30A(1052) 21-OCT-81 09:21 PAGE 93 


CZKMDA.P11 20-OCT-81 17:03 CHARACTER LENGTH TEST SEQ 0093 
: : -SBTTL CHARACTER LENGTH TEST 
4 
4 ¢ seeaaaaareanerereetertaanaee TEST 6] seeeneneenecenenenerenaeees 
4326 : *CHARACTER LENGTH TEST FOR PROTOCOL = BOP 
4325 :*THIS TEST WILL PERFORM THE FOLLOWING 
: $ ; *SEQUEN CE: 
4328 3* Ve ¥ T THE CHARACTER LENGTH REGISTER 
4 3® BITS/ sh 
43 3* 2. ser’T THE ONE BIT IN BIT POSITION 6 OF 
4331 3* OF 7 at; At REGISTE 
4 $ 3* 3. SET ae | me A STEP CLOCK FOR 7 BITS/CHAR 
433 7* 4. bs B STER CLEAR 
4334 3* 5. SET Ly CHARACTER LENGTH aTine ae TO 
4335 ;* 8 BITS/CHAR FOR INITIALIZATION OF 
2339 2* THE SEND RECEIVE LOGIC 
4338 :* 6. SYNC THE SEND ay LOGIC FOR PROTOCOL 
4339 3* BOP BY SENDING THE itere feo ADDRESS PLUS 
4340 3* or BYTE AT 8 BITS/ 
4341 3* 7. SET THE Bayt TER Cnet 
434 7* 8. TRANSMIT 3 DAT A BYTES AND TEST THE 
434 3® DATA BYTE RECEIVED TO THE DATA BYTE TRANSMIT=D 
4344 3* 9. TEST IF ALL CHARACTER LENGTHS HAVE BEEN TES” D 
4345 3 F NOT LOAD NEW VALUES AND CONTINUE 
rh 34 FERRARA AARAARARAEEAARRARAAERRAERERRERERERERRRRRRREREES CRRERERERE 
4 
ro z: TEST 61 
4350 jteenenhensennenteeneenrerrennenennneneneneeneentnnentns centent 
51 015606 000004 18161: SCOPE 
435 15610 012737 000061 001102 MOV ei. STSTNM LOAD 3 NO. OF THIS TEST 
353 015616 012737 000061 001262 MOV TSTNUM # FOR TYP 
4354 015624 012737 000347 016134 MOV $34 Sieas 3;LOAD wud CHARACTER LENGTH REGISTER 
4399 015632 012737 000007 015722 MOV #7, 7$° on + rthnen 
4357 015640 012737 000100 016120 MOV #B1T6,6$ [SET THE ONE BIT IN BIT POSITION 
4358 26 FOR 7 BITS/CHAR 
4359 015646 012737 015654 001106 MOV #23$,,S$LPADR ZSET THE RETURN AT 3$ 
4360 015654 104414 23$: MSTCLR + ISSUE A MASTER CLEAR 
4361 015656 005037 0160 CLR 50$+ 
4362 015662 005037 016230 CLR 11$+ 
436 812068 eat 16304 CLR 52$+ 
4364 31207 005037 016474 CLR 81$+ 
4365 015676 005037 016150 CLR 61$+ 
4366 Bi 3708 10ss 16 000000 WRITE ,SEC5,BOP ;LOAD THE MODE CONTROL REGISTER 
4367 015710 012737 177776 016124 MOV #-2,70$+2 
4368 015716 104416 WRITE SEC7 ;LOAD THE CHARACTER LENGHT 
4369 015722 000000 75$: WORD 
$30 015724 104416 000014 000321 WRITE ,PRI14,TENA!RENA!MB!MC ea THE FOLLOWING: 
437, 3 RENA 
437. 3 MAINTENANCE BITS: MB, MC 
4374 3 MAINTENANCE BITS: MB, MC 
4375 015732 104416 000003 000001 WRITE -SEC3,TSOM :SET TSOM 














LV) 
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CZKMDA.P11 20-OCT-81 17:0 TER LENGTH TEST SEQ 0094 
4 7 15740 104421 23: SiEP 2 :STEP THE CLOCK ONCE 
4377 015744 1064 1 READ PRI13 [READ THE STATUS REGISTER 
4378 015750 HE 1 MOV (SP) +,$TMPO :;POP STACK INTO $TMPO 
4379 015754 7 20 001202 BIT #TBMT , STMPO :TEST FOR BUFFER EMPTY 
4 15762 001766 BEQ 2$ [NO CONTINUE STEPPING THE CLOCK 
4381 13764 0137 16120 015776 MOV 6$,.412 
é 15 104416 WRITE -$ECQ.0 ;LOAD ADDRESS 
4 12008 104416 WRITE -SeC ,0 [RESET TSOM 
4 016006 104421 900008 3s: STEP; SSTEP THE CLOCK ONCE 
4385 91601 1044 90001 READ ,PRI13 TREAD THE STATUS REGISTER 
4 1601 0126 001 02 MOV (SP) +, $TMPO [;POP STACK INTO $TMPO 
4387 016022 032737 000010 001202 BIT #SF ,STMPO ‘TEST FOR S/F 
4388 0160 001017 BNE 24$ 
4389 016052 105227 000000 50$:  INCB 
4390 016036 001 3 BNE 3$ 
4391 016040 0137 901202 1204 MOV STMPO,STMP1 
439 016046 13737 001202 001206 MOV $TMPO.$TMP2 
4393 016054 052737 000010 001206 BIS WSF ,STMP2 
4394 016062 104016 ERROR 16. :S/F DID NOT SET AFTER FLAG SENT 
4395 016064 000137 015654 JMP 238 [LOOP ON ERROR 
439% 016070 248: 
4397 016070 104421 00000 $: STEP —_ 2 :STEP THE CLOCK ONCE 
4398 016076 104420 1 READ  .PRI13 TREAD THE STATUS REGISTER 
4399 016100 012637 (01202 MOV (SP)+,$TMPO ::POP STACK INTO $TMPO 
4400 016104 032737 20 001202 BIT #TBMT , STMPO : TEST FOR BUFFER EMPTY 
4401 016112 001411 BEQ 
4402 016114 104416 000002 WRITE ,SEC2 ;LOAD A DATA CHARACTER 
4403 016120 000000 6S: .WORD 6 
4404 016122 005227 177776 70$: INC 4-2 
4405 016126 001003 BNE 71$ 
4406 016130 104416 000007 WRITE  ,SEC7 
4407 016134 000000 4$: ' 6 
4408 016136 71$: 
4410 016136 032737 000010 001202 8$: BIT #SF ,STMPO :TEST IF SF STILL SET 
4411 016144 001406 BEQ 10$ : 
a 016146 105227 000000 61$: INCB 40 : TIMEOUT FOR S/F 
4414 016152 001003 BNE 10$ SBRANCH IF NOT TIMEOUT 
4415 016154 104041 ERROR 33. “DEVICE IS STILL SENDING SYNC CHARACTERS 
4616 016156 001 7 015654 JMP 3$ [LOOP ON E 
4417 016162 032737 000001 001202 10$: BIT #RDA, STMPO STEST FOR DATA AVAILIBLE 
4418 016170 00141 BEQ 118 
4419 016172 osbe READ  ,SECO :READ THE DATAREGISTER 
4420 016176 012637 00120 MOV (SP)+,$TMPO ::POP STACK INTO $TMPO 
4421 916202 o1 737 016120 001204 MOV 63, STAP1 :GET EXPECTED 
4422 or 19 a5737 001202 001204 CMP STAPO, STAMP! [TEST FOR CORRECT DATA 
4426 016220 1 087 ERROR ss :DATA WAS NOT TRANSMITTED CORRECTLY 
4425 016222 000137 015654 JMP 3g SLOOP ON ERROR 
4426 016 $ 105427 000000 11$:  INCB #0 
4427 01 00131 BNE 7$ 
4428 01 10404 ERROR 34. :DEVICE 1S HUNG 
123 10545 Soe446 po080s 000002 128:  UniTE  “Sec®. TEOM *LOOP ON END THE MESSAGE 
4431 016250 104421 002 188: ge pple sSTEP THE CLOCKONCE 
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ZKMDA.P11 20-OCT-81 17:03 CHARACTER LENGTH TEST SEQ 0095 
44 1 1044 1 READ PRI13 ZREAD THE STATUS REGISTER 

44 1 1g6 120 MOV (SP) +, $TMPO :;POP STACK INTO $TMPO 

44 1 7 10 001202 BIT asf -STAPO :TEST FOR SF AFTER TEOM SENT 
4435 01 1403 BEQ $ =NO BRANCH 

44 1 104044 ERROR $ 7S/F SET BEFORE SECOND DATA BYTE RECEIVED 
4 1 9001 7 015654 JMP [LOOP ON ERROR 

44 1 105227 $30906 52s: INCB #0 

4439 01 001 BNE 14$ 

4440 01 10404 ERROR 34. :DEVICE 1S HUNG 

4441 01 104420 000013 READ ,PRI13 

4462 01 0126 1202 MOV (SP) +, $TMPO z2POP STACK INTO STMPO 

4443 01 32737 1 001202 14$: BIT #RDA, $TMPO :TEST FOR DATA 

4444 01 901747 BEQ 13$ 

4445 01 1044 READ SECO :READ THE DATA 

4446 1 O12 00120 MOV (SP) +, STMPO ::POP STACK INTO $TMPO 

4447 01 013737 016120 001204 MOV TAP 

4448 01 023737 001202 001204 CMP TMPO,STMP1 :TEST THE DATA 

4449 01 001403 BEQ 15$ 

4450 01 104087 ERROR 33 ZDATA WAS NOT TRANSMITTED CORRECTLY 
6451 01 000137 015654 JMP 3$ SLOOP ON ERROR 

4452 016366 15$: 

445 016366 104421 STEP 2 :STEP THE CLOCK ONCE 

4454 016372 104420 1 READ <>PRI13 SREAD THE STATUS REGISTER 

4455 016376 012637 001202 MOV (SP)+,$TMPO ::POP STACK T 

4496 016402 032737 001202 BIT #RDA, STMPO :TEST IF DATA AVAILIBLE 

4457 016410 001404 BEQ 80$ :NO BRANCH TO 80$ 

4458 016412 104420 000000 READ SECO [READ THE DATA 

4459 016416 012637 001202 MOV (SP) +,$TMPO ::POP STACK INTO $TMPO 

4460 016422 80S: 

4461 016422 104420 1 READ _—, SEC1 ZREAD REGISTER 

4462 016426 012637 90120 MOV (SP) +, $TMPO :;POP STACK INTO $TMPO 

4463 0164 : 042737. 177775 001202 BIC #°C<REOM>,$TMPO :CLEAR UNWANTED BITS 

4464 016440 032737 000002 001202 BIT #REOM, STMPO sTEST REOM 

4465 016446 001017 BNE 1 SSET SKIP ERROR 

4466 016450 013737 001202 001204 MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 
4467 016456 013737 001204 001206 MOV STMP1,S$TMP2 ;LOAD EXPECTED ALSO 

4468 016464 052 7 2 001206 BIS #REOM, STMP2 :LOAD EXPECTED 

4469 016472 10 227 000000 81$: INCB #0 

4470 016476 001333 BNE 15$ 

4471 016500 104025 ERROR 21. ;REOM FAILED TO SET AFTER END OF MESSAGE 
4472 016502 000137 015654 JMP 23$ SLOOP ON ERROR 

44 16506 16$: 

447 16506 000241 CLC 

4475 016510 006237 016120 ASR 6$ 

4476 016514 162737 000041 016134 SUB 441,48 

44 0165 2 005337 015722 DEC 75$ 

4478 016526 105737 016120 TSta 3 s«6S$ 

4479 016532 001403 BEQ TST62 33 

4480 016534 000137 015654 JMP 23$ 

4481 016540 17$: 

4482 016540 000400 BR TST62 i 
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ERROR CHECK TEST FOR ALL ERROR DETECTION SEQ 0096 


-SBTTL ERROR CHECK TEST FOR ALL ERROR DETECTION 


peeaeneeananarereeeerenarane TEST 62 seeanaaceeenaeneeeeeenateees 
S*ERROR CHECK TEST FOR poeroret = BOP 
z #ERROR CHECK X Y Z = CCITT- 


FRAAAAEAAAARAAAEAERAERARARARARARAAARAARAAEAAAAARERAARAERARARAREREEE 





; TEST 62 
+  RHERRERERRRRERERERRERAERERERAEREREREEREREEREEREREREREEREREEEREE 
162: SCOPE 
MOV woo: Foun : LOAD THE NO. OF THIS TEST 
MOV STNUM *# FOR TYPE OUT 
65 5$ ;LOAD CHARACTER BUFFER 
MOV Att SLPADR :SET RETURN ADDRESS TO 64$ 
64$: MSTCLR ae s ISSUE A MASTER CLEAR 
WRITE  ,SEC7,0 :SET CHARACTER LENGTH TO 8 BITS/CHAR 
WRITE >SECS.BOP!CCITT-1 ZLOAD MODE CONTROL REGISTER 
CLR {00$+ 
CLR 100$+ 
CLR 110$+ 
CLR 52$+ 
CLR 50$+ 
CLR 11$+ 
WRITE  ,PRI14,TENA!RENA!MB!MC jENABLE THE FOLLOWING: 
; RENA 
3 MAINTENANCE BITS: MB ,MC 
WRITE  ,SEC3,TSOM 
2s: STEP 52 ;STEP THE CLOCK ONCE 
READ .PRI13 READ THE STATUS REGISTER 
MOV (SP) +,$TMPO STACK INTO sim THRO 
BIT #TBMT , STMPO ‘fesT OR BUFFER 
BEQ 2$ NO CONTINUE STEPPING. THE CLOCK 
MOV 65$,.412 
WRITE -SECe.0 ZLOAD ADDRESS 
WRITE  ,SEC3, ZRESET TSOM 
3$: STEP 52 ;STEP THE CLOCK ONCE 
READ .PRI13 sREAD THE STATUS REGISTER 
MOV (SP)+,$TI.PO :;POP § TACK INTO $TMPO 
BIT ast .STAPO tTEST F OR S/F 


BNE 
50$: INCB 
BNE 


STMPO.STMP 
BIS aSF ,STMP2 
ERROR 14, :S/F DID NOT SET AFTER FLAG SENT 
7 JMP 64$ [LOOP ON ERROR 
3 STEP —s_ 2 zSTEP THE CLOCK ONCE 
READ ‘PRI13 3READ THE STATUS REGISTER 
{spe STMPO POP STACK INTO $TMPO 


MOV 
BIT T.STMPO TEST FOR BUFFER EMPTY 
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C2KMDA.P11 30 5ct 28 raat ERROR CHECK TEST FOR ALL ERROR DETECTION SEQ 0097 
4539 0170 1405 BEQ gS 
4 17036 106416 000002 WRITE  ,SEC2 ZLOAD A DATA CHARACTER 
4541 01 65$: WORD 6 
4 3 12 46 017676 — INC 19$ :+1 TO DATA OUT 
4544 017050 73 000001 001202 10$: BIT #RDA,STMPO :TEST FOR DATA AVAILIBLE 
4545 0170 14 BEQ 11$ 
4946 17088 1044 900900 READ SECO ZREAD THE DATA REGISTER 
454 17064 0126 1 0 MOV (SP) +,$TMPO :;POP STACK INTO $T 
4348 170 7 0176 DEC 19$ '=1 TO DATA (CHR. REC.) 
4549 017074 0137 7 017062 001204 MOV 65$,$TMP1 [GET EXPECT 
4550 01710 001202 001204 CMP STMPO,STMP1 ZTEST FOR CORRECT DATA 
4551 01711 140 BEQ 30$ ; 
4358 17112 1040 ERROR 23. SDATA TRANSMITTED INCORRECTLY 
4553 017114 000137 016574 JMP 64$ SLOOP ON ERROR 
4554 gizt 30S: 
4555 017120 104420 00000 READ ,SEC1 :READ REGISTER 
4396 giz] 4 O12 00120 MOV (SP) +,$TMPO ::;POP STACK INTO STMPO 
4557 017130 042737 177577 001202 BIC #*C<ERRCK>, STMPO :CLEAR UNWANTED BITS 
4558 017136 032737 000200 001202 BIT #ERRCK ,STMPO S TEST ERRCK 
4559 017144 001414 BEQ 31$ TRESET SKIP ERROR 
4560 017146 013737 001202 001 MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 
4561 017154 013737 001204 001206 MOV STMP1 ,STMP2 ZLOAD EXPECTED ALSO 
436¢ 017162 042737 000200 001206 BIC RRCK, STMP2 sLOAD EXPECTED 
4563 01717 104051 ERROR 25. ZERROR CHECK SET 
4564 017172 000137 016574 JMP 648 SLOOP ON ERROR 
4565 017176 31S: 
4566 017176 000406 BR 12$ 
4567 917200 105¢e 000000 11$:  INCB #0 
4568 017204 001 BNE 7$ 
4569 017206 10404 ERROR 34. :DEVICE IS HUNG 
4570 017210 000137 016574 JMP 64$ ‘LOOP ON ERROR 
4571 017214 104416 000003 000002 12s: WRITE  ,SEC3,TEOM -END THE MESSAGE 
4372 017222 104421 13$: STEP [2 ZSTEP THE CLOCKONCE 
4573 017226 104420 00001 READ .PRI13 TREAD THE STATUS REGISTER 
4574 0172 0126 ? 001202 MOV (SP)+,$TMPO :;POP STACK INTO $T 
4575 017 05 737 000010 001202 BIT #SF ,STMPO [TEST FOR SF AFTER TEOM SENT 
4976 017244 1406 BEQ 14$ [NO BRANCH 
4577 017246 105 000000 100$: INCB #0 
4578 O1725¢ 901 3 BNE 14$ 
4579 017254 044 ERROR 36. 7S/F CAME UP BEFORE LAST DATA BYTE RECEIVED 
4580 o17 900137 16574 JMP 648 sLOOP ON TEST 
4581 017 2737 atte 001202 14$: BIT ARDA, STMPO [TEST FOR DATA 
4982 17 001 BNE 120$ 
4583 017272 105 000000 110$: INCB # 
4584 017276 001351 BNE 13$ 
4585 017 104042 ERROR 34. :DEVICE IS HUNG 
4586 017302 000137 016574 JMP 64$ [LOOP ON ERROR 
4587 017306 120$: 
4588 017 1044 a READ _, SECO zREAD THE DATA 
4589 O17 1 oi 6 120 MOV (SP) STMPO ::POP STACK INTO $TMPO 
4590 017316 013737 017042 001204 MOV 65$,$TMP1 [GET EXPECTED DATA 
4591 017324 02 737 001202 001204 CMP STMPO,STMP1 [TEST DATA 
4592 017332 1403 BEQ 408 [0K BRANCH 
459 017334 10408 ERROR 23. [DATA TRANSMITTED INCORRECTLY 
4594 017336 000137 016574 JMP 64$ [LOOP ON ERROR 
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CZKMDA.P11 
SE TES ose coon 
Bie wo om 
4 rs 17 7 7 
4 17 32737 000200 
4600 017 1414 
4601 017 13737 oo 9 
cane 17376 013737 1 
460 17404 7 000200 
46046 017412 104031 
4605 017414 000137 016574 
res] 174 
460 174 1 00000 
4608 017426 1044 isd 
4609 0174 ois 00120. 
4610 0174 3 7 000001 
4611 017442 14 
m2} 1 17444 1044 000000 
461 17450 Sieg pleee 
4614 Bi tee 005337 017676 
4615 017460 
+18 017460 oer 000010 
4617 017466 1 
4618 017470 10°68 000000 
4619 017474 001 

: rr 017476 104026 

1 017500 000157 016574 

+656 017504 
4625 017504 
4624 017504 104421 
4625 017510 1044 9 000001 
$058 Heat 0126. 4 
462 175. 042737 177 
4699 O1788¢ OOT0Is nO 
rr 017536 AE 7 001202 
4631 017544 ot 737 001204 
rr hes; 34434 000002 
4634 017562 00098 016574 
4635 017566 
$656 175 10s%90 1 
463 175 1 $ 1 
4638 017576 7? 177 
4639 017604 032737 000200 
4640 017612 1414 
4641 017614 Ate 7 001202 
464 17666 13737 bag 04 
464 176. 2737 
GO44 1768 104031 
4645 01764 137 16578 
+78 17644 $ 7 017042 
464 17650 2737 176 
4648 17628 17 § 
4649 017 2737 000377 
4650 017666 1402 


188 
Bie 


001202 


001202 
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ERROR CHECK TEST FOR ALL ERROR DETECTION 


40$: 
READ ¢1 
MOV SP) +, $TMPO 
BIC #PCCERRCK> -$ 
BIT WERRCK ,$T 
BEQ 418 
MOV STMPO,STMP1 
MOV STMP1,STMP2 
BIC #ERRCK ,STAP2 
ERROR 25. 
JMP 64$ 

41$: 

538: STEP ,2 
READ PRI13 
MOV (SP) +, $TMPO 
BIT #RDA, STMPO 
BEQ 70$ 
READ SECO 
MOV (SP) +,STMP1 
DEC 19$ 

70$: 


BIT 7 swe 
15$ 


BNE 

52$ INCB #0) 
BNE 53$ 
ERROR 22. 
J 64$ 

54$: 

15$: 
STEP _ 6 
READ SEC 
MOV (SP) +, $TMPO 
BIC #*C<REOM>, STMPO 
BIT #REOM, STMPO 
MOV STMPO,STMP1 
MOV STNPI STP? 
BIS #REOM, STMP 
ERROR : 
JMP 

16$: 
READ ,SEC1 
MOV (SP)+,$ 
BIC #*C<ERRCK>, STMPO 
BIT Ha Ck.$ 
BEQ 17$ 
MOV STMPO,S$T 
MOV STMP1.STMP2 
BIC RRCK, 
ERROR ‘ 
JMP 5 

17$: INC 5$ 
CMP #176,65$ 
BEQ cs 
CMP 4377 .65$ 
BEQ $ 


sREAD REGISTER 


33POP STACK INTO STMPO 
TMPO 


CLEAR _UNWANTED BITS 
ERRCK 


" PREPARE 
ZLOAD EXPECTED ALSO 
:LOAD EXPECTED 


:LOOP ON ERROR 


zSTEP THE CLOCK ONE TIME 
SREAD THE STATUS REGISTER 
:;POP STACK INTO $TMPO 

: TEST FOR DATA 


sREAD THE DATA 

33POP STACK INTO STMP1 

z~1 TO DATA CHRS. 

sTEST FOR S/F AFTER TEOM SET 
;YES BRANCH 


3S/F DID NOT SET AFTER TEOM SET 
;LOOP ON ERROR 


ZSET SKIP ERROR 
“PREPARE TO REPORT ERROR 
;LOAD EXPECTED ALSO 


: EXPECTED 
zREOM FAILED TO SET AFTER END OF MESSAGE 
SLOOP ON ERROR 


SRESET SKIP ERROR 

“PREPARE TO REPORT ERROR 
ZLOAD EXPECTED ALSO 

:LOAD EXPECTED 
:LOOP ON ERROR 

;TEST IF GO AHEAD CHARACTER 


sTEST IF ALL CHARACTER’S TESTED 
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KMDASPI . “30-bc1 te 1? +08 ERROR CHECK TEST FOR ALL ERROR DETECTION 


aaa 17670 000137 016574 JMP 64$ 
see bi Feb 01 — TS163 - 
4634 17676 sity 198: S° :CHR. COUNTER 


peenaaenanaeareererenennenes TEST 63 seeeaneeneeenerererareerene 
3 *ERROR CHECK TEST FOR PROT 
S*ERROR CHECK X Y 2 = CCITT 


PIITITITITITITITITITI ITLL ITLL LLL LLL LLL ELLE LLL LEE EEE EEL 


: TEST 63 


° 
SS RAAAEEAAERERAEAAAEAAEEEEAERRAERARAEAREAERAEAAREERARERAERREREREREEERE 


$163: SCOPE 








7 MOV #63. STSTNM : LOAD THE NO. OF THIS TEST 
? MOV #63. TSTNUM *# FOR TYPE OUT 

4 7 MOV #1,65$ ;LOAD CHARACTER BUFFER 
4669 17726 7 MOV #64$, SLPADR ZSET RETURN ADDRESS TO 64$ 
46 177 414 64$:  MSTCLR sISSUE A MASTER CLEAR 
4671 017 005037 021034 CLR 19$ 
4672 017740 104416 7 900000 WRITE  ,SEC7,0 -SET CHARACTER LENGTH TO 8 BITS/CHAR 
4673 017746 104416 5 1 WRITE  °SECS-BOP!CCITT-0 ZLOAD MODE CONTROL REGISTER 
1ehs B17re0 BOsOE? 50406 th 1005"8 
is SI Ste Site eth 1108: 
4678 017774 005037 020114 CLR $0802 
4679 020000 005037 020340 CLR 11$+ 
4680 020004 104416 14 000321 WRITE  ,PRI14,TENA!RENA!MB!MC jENABLE THE FOLLOWING: 

: RENA 

rhe 3 MAINTENANCE BITS: MB .MC 
4684 020012 104416 000003 000001 WRITE ,SEC3,TSOM 
4685 020020 104421 00000 2s: STEP 52 ;STEP THE CLOCK ONCE 
4686 020024 1044 9 00001 READ ‘[PRI13 :READ THE STATUS REGISTER 
4687 0200 0126 1208 MOV (SP)+,$TMPO STACK INTO $T med 
4688 34 032737 Bb08S 001202 BIT sTBAT, STAPO : {POP T FOR BUFFER EMP 
4689 020042 1766 BEQ [NO CONTINUE STEPPING. THE CLOCK 
4690 920006 137 0 0056 és +12 
4691 52 104416 WRITE 8:0 ZLOAD ADDRESS 
469 104416 WRITE SRESET TS 
re ty4 1044 , - STD > me ‘Reh THe STA “status One TER 
4695 8 76 01 637 1 08 MOV (SP) +, $TMPO : Reels 
469 toi! 30737 001202 BIT ast .STAPO ‘TEST FHL 
4698 201 105 27 000000 50S: INCB #9 
4700 8 1 13737 120 12 MOV STMPO,STMP1 
4701 020126 013737 001 12 MOV STMPO STHP2 
£308 } oa3 WoL016 tae Pho te StH S/F DID NOT SET AFTER FLAG SENT 
4704 020144 000439 017732 are JMP 64$ [LOOP ON ERROR 
706 020150 104421 000002 $: STEP ,2 ;STEP THE CLOCK ONCE 


SEQ 0099 
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“B0-5c1-81 17:0 ERROR CHECK TEST FOR ALL ERROR DETECTION 


3 


Bas ieee 


001202 
001204 
000200 


017732 


SResSars 
on 


3 S 
Nm WWWAa > 
Qrom Ne Ne NNN SE 


_ 
So 
—wW 


000000 


athe 
194624 00000 
1044 


Ss nm 


ae: 

1 3897 000000 
1351 

000139 017732 


1044 ! 
1s 1 
13737 020 
23737 001 


0 


001202 


001202 


000002 


001202 


001202 


65$: 


30$: 


31$: 
11$: 


READ 


PRI13 
(SP)+,$T 
#TBMT;$T 


SEC2 
tos 


#RDA, STMPO 
11$ 


65$,$TMP1 
STMEO, STAT 


64$ 


(SP) +,$TMPO 
#°C<ERRCK>, STMPO 
#ERRCK,STMPO 
STMPO,STMP1 
STMP1.STMP2 
#ERRCK, STMPZ 

25. 

64$ 


»SEC3, TEOM 
*PRI13 
(SP)+,$TMPO 
#st »STMPO 


SECO 
)+, STMPO 


( 
Siheb. sro 


sREAD THE STATUS RE 
;;POP STACK INTO $T 


[TEST FOR BUFFER EMPTY 
;LOAD A DATA CHARACTER 
3#1 TO DATA OUT 


zTEST FOR DATA AVAILIBLE 


sREAD THE DATA REGISTER 
330 O nara INTO $Ti 


s-1 T 


DATA (CHR. REC.) 


SGET EXPECT 
Test FOR CORRECT DATA 


; H 
sDATA TRANSMITTED INCORRECTLY 
;LOOP ON ERROR 


sREAD REGISTER 
33POP STACK INTO STMPO 


sDEVICE I 
:LOOP ON 


:STEP THE 


sREAD THE STATUS REGISTER 


sl 
sERROR CHECK SET 
;LOOP ON ERROR 


LEAR UNWANTED BITS 
T_ERRCK 


RESET SKIP ERROR 
PREPARE TO REPORT ERROR 
LOAD EXPECTED ALSO 


XPECTED 


S_HUNG 
E 


END THE MESSAGE 
CLOCKONCE 


33POP STACK INTO $T 


3S/F CAME UP BEFORE LAST DATA BYTE RECEIVED 
; ON TEST 


:TEST FOR SF AFTER TEOM SENT 
NO BRANCH 


TEST FOR DATA 


DEVICE 1 
[LOOP ON 
sREAD THE 
[GET EXPE 
TEST DAT 


S_HUNG 
ERROR 


DATA 


;;POP_ STACK INTO $TMPO 


CTED DATA 
A 


— 


SEQ 0100 
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ERROR CHECK TEST FOR ALL ERROR DETECTION 


SEF W8 


a a 


Me 
A 
ee ee 






SEQ 0101 







49s 30K BRANCH 
ei DATA TRANSMITTED INCORRECTLY 
$ [LOOP ON ERROR 

SEC1 zREAD REGISTER 
(SP) +, $TMPO 7;POP STACK INTO STMPO 
#PCCERRCK> -$TMPO 7CL EAR UNWANTED BITS 
#ERRCK, ST S TEST ERR 

$ TRESET SKIP ERROR 
STMPO,STMP1 *PREPARE TO REPORT ERROR 
STMP1 .STMP2 ZLOAD EXPECTED ALSO 
#ERRCK,STMP2 3LOAD EXPECTED 
64$ ZLOOP ON ERROR 













2. sSTEP THE CLOCK ONE TIME 

PRI13 TREAD THE STATUS REGISTER 
(SP)+,$TMPO +:POP STACK INTO $TMPO 
#RDA, STMPO :TEST FOR DATA 


.SECO sREAD THE DATA 
(SP) +, $TMP1 7:POP STACK INTO STMP1 
19$ z>1 TO DATA CHRS. 














#SF ,STMPO TEST FOR S/F AFTER TEOM SET 
15$ ES BRANCH 
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5 
22. 3S/F DID NOT SET AFTER TEOM SET 
64$ ;LOOP ON ERROR 








es & 
= 





c1 ;READ REGISTER 
(SP) +,$TMPO +;POP STACK INTO STHPO 
#°C<REOM>,$TMPO :CLEAR UNWANTED BIT 
#REOM, STMPO : TEST RE 

:SET SKIP ERR 

STMPO,$ PREPARE TO REPORT ERROR 
STMP1. pl sine ;LOAD EXPECTED ALSO 
#REOM EXPECT ED 
21. :REOM FAILED TO SET AFTER END OF MESSAGE 
64$ [LOOP ON ERROR 


SEC1 ;READ REGISTER 
(SP) +, $TMPO [;POP STACK INTO $STMPO 


#*C<ERRCK>, STMPO :CLEAR UNWANTED BITS 
RRCK,STMPO [TEST ERRCK 
SRESET SKIP ERROR 
STMPO,STMP “PREPARE TO REPORT ERROR 
STMP Sap? LOAD EXPECTED AL 
#ERRCK ,STMP2 s LOAD EXPECTED 
64$ :LOOP ON ERROR 


65 
716,658 sTEST IF GO AHEAD CHARACTER 
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CZKMDA.P11 ERROR CHECK TEST FOR ALL ERROR DETECTION SEQ 0102 
4819 021014 177g BEQ 17s 
1 16 7 000377 020200 CMP #377 ,65$ zTEST IF ALL CHARACTER'S TESTED 
1 4 BEQ 18$ 
¢ 137 017732 .o JMP 643 
% 021 01 TST64 i 
5 19s £09000 19$: 5 :CHR. COUNTER 
peeaneanerenereerereeeaaaane TEST 64 seeneeeenrereneceneenereene 
TERROR CHECK TEST FOR PROTOCOL = BOP 
48 z SERROR CHECK X Y Z = CRC16 
48 1 TRAKAAAARAAAAAAAAEAERAAARARARAAAAEEAERAERAARARERAREREEAEREEREEEEE 
48 
cs3s 3: TEST 64 
4835 © -RRAEAAAEAAAAARAAAAAAAERAEAAAAAARAARAARAARARARARARAARARARAREEAEEREEEE 
4836 21036 TS164: SCOPE 
483 1040 012737 900064 00110. MOV #64, STSTNM z LOAD THE NO. OF THIS TEST 
4858 10466 012737 0012 MOV STNUM “ PE 
483 1054 012737 1 021 MOV #1,65$ ;LOAD CHARACTER BUFFER 
4840 9 1 012737 021070 001106 MOV #64$,SLPADR [SET RETURN ADDRESS TO 64$ 
4841 021070 104414 64$:  MSTCLR yISSUE A MASTER CLEAR 
484¢ 1072 005037 922172 CLR 198. 
484 1076 104416 900000 WRITE  ,SEC7.0 7SET CHARACTER LENGTH TO 8 BITS/CHAR 
4844 021104 104416 5 00000 WRITE se¢S *BOP!CRC16 :LOAD MODE CONTROL REGISTER 
4845 021112 90905 9 1544 CLR 1008+ 
4846 021116 005037 021544 CLR 100$+ 
4847 0211 5037 021570 CLR 110$+ 
4848 0211 $ 5037 766 CLR 52$+ 
4849 0211 5037 2 CLR 50$+ 
4850 0 1136 5037 021476 CLR 11$+ 
4891 021142 104416 14 000321 WRITE — ,PRI14, TENA! RENA! MB! MIC ZENABLE THE FOLLOWING: 
tees s RENA 
4854 : MAINTENANCE BITS: MB .MC 
4855 021 104416 3 000001 WRITE ,SEC3,TSOM :SET TSOM 
4856 4 104421 : 2s: STEP 52 7STEP THE CLOCK ONCE 
485 1 1044 1 READ PRI13 READ THE STATUS REGISTER 
4858 021 0126 120 MOV (SP) +, $TMPO STACK INTO $TMPO 
tB20 i a4) y  Ctete Bro TBAT .STAPO fest CONTINOe SEE PE ING” THE CLOCK 
4861 021 Ones 1336 021214 65$,.4#12 
1 106416 $5000 WRITE »SECO.0 ;LOAD ADDRESS 
rhs. 1 10441 000000 WRITE  ,SEC3,0 SRESET 
4864 021 1044 1 3$: STEP. ; STEP THe CLOCK ON 
4865 10 4 ! ! READ PRINS oo :READ THE STATUS RE REG TER 
rh 74] 1 43834 10 001202 BIT #SF .STMPO : TEST FOR 
1 1017 BNE 246$ 
4 1 5227 000000 50$: INCB 
4870 021 1 ; BNE 
4871 021 137 120, 1204 MOV stro. st0p1 
487, 1 13737 00120 1206 MOV iar sth 
487 9 1 52737 10 001206 BIS theo 
4874 021 104016 ERROR 3S/F DID NOT SET AFTER FLAG SENT 


ie] 


a 
53 


4900 


SSeS SS SSERESSERESSSSES 


AO DMS11=DA STATIC MACY11 30A(1052) 21-OCT-81 09:21 PAGE 10 
nie ee tat 17:0 ERROR CHECK TEST FOR ALL ERROR DETECTION 
’ 000137 021070 a JMP 64$ ;LOOP ON ERROR 
1 1044 1 $s STEP 2. :STEP THE CLOCK ONCE 
1 3 1 READ PRI13 3READ THE STATUS REGISTER 
1 126 MOV (SP)+,$T -POP STAC 0 $T 
z 001202 eit #TBMT.$T TEST FOR Curren EMPTY 
1 104416 000002 WRITE  ,SEC2 ;LOAD A DATA CHARACTER 
1 65$:  .WORD 6 
5237 022172 a iNC 19$ :¢1 TO DATA OUT 
i 46 one 7 000001 001202 10S: IT #RDA, STHPO :TEST FOR DATA AVAILIBLE 
1354 1 430 READ SECO ZREAD THE DATA REGISTER 
1 0126 1 : MOV (SB), STMPO ::POP STACK INTO $TMPO 
021 ? 0221 DEC 198 [<1 TO DATA (CHR. REC.) 
1 137 7? 021336 001204 MOV 658, $TMP1 [GET EXPECTE 
1376 02 737 001202 001204 CMP aay $TMP1 ZTEST FOR CORRECT DATA 
021404 00140 [DATA OK 
0 1606 1040 ERROR 23. :DATA TRANSMITTED INCORRECTLY 
0 1410 000137 021070 - JMP 648 SLOOP ON ERROR 
O3tei4 104420 000001 READ _, SEC1 :READ REGISTER 
a 1 6 901202 MOV (SP) +, STMPO POP STACK INTO $TMPO 
021424 37 (177 00120 BIC #*C<ERRCK>,STMPO’” :CLEAR UNWANTED BITS 
0214 32737 000200 00120 BIT #ERRCK , STMPO : TEST ERRCK 
144 1414 BEQ 31$ TRESET SKIP ERROR 
021442 013737 001202 001204 MOV STMPO,STMP1 PREPARE TO REPORT ERROR 
021450 013737 001204 001206 MOV STMP1STMP2 LOAD EXPECTED ALSO 
1456 042737 000200 001206 BIC HERRCK, STRIP sLOAD EXPECTED 
4905 021464 104031 ERROR 25. ZERROR CHECK SET 
0 16 000137 021070 < JMP 648 SLOOP ON ERROR 
02147 000406 BR 12$ 
021474 losee 000000 11$:  INCB #0 
021500 001 BNE 7$ 
021502 10404 ERROR 34. :DEVICE IS HUNG 
021504 00013 021079 JMP 64$ [LOOP ON ERR 
021510 104416 000003 000002 128: WRITE  ,SEC3,TEOM -E MESSAGE 
0 1516 104421 13$: STEP [2 ;STEP te cL CKONCE 
021522 1044 READ .PRI13 :READ THE tit REGISTER 
0215 126 1208 MOV (SP) +, $TMPO STACK INTO 
15 32737 b0001 001202 BIT #SF .STMPO ‘fest FOR SF AFTER. TEOM SENT 
9 154 1406 BEQ 14$ ‘NO BRANCH 
1542 105227 000000 100$: INCB 40 
1546 001003 BNE 14$ 
1550 104044 ERROR 36. :S/F_CAME ue BEFORE LAST DATA BYTE RECEIVED 
é 1552 137 1070 JMP 648 SLOOP ON TEST 
1556 032737 ante 001202 14$: BIT #RDA,STMPO TEST FOR DATA 
1564 001006 BNE 120$ 
1366 5¢27 000000 110$:  INCB a0. 
$ 021574 104042 ERROR 34. :DEVICE IS HUNG 
0 137 000137 021070 ‘Wie JMP 64$ [LOOP ON ERROR 
021602 104420 000000 READ SECO ;READ THE DATA 
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Mbct 8) IP ERROR CHECK TEST FOR ALL ERROR DETECTION 


KMDA.P1 os 
oe eae my Sear’ eran aga 
1 737 00120 ES CMP e38 Stet :TEST DAT 
4 1 14 ; BEQ + 0K BRANCH 
4935 0216 ERROR :DATA TRANSMITTED INCORRECTLY 
4 16 137 021070 Kate JMP $ [LOOP ON ERROR 
1636 1044 1 READ ZREAD REGISTER 
4 1642 01 é MOV TMPO ::POP STACK INTO STMPO 
4940 021646 ? 1775) 120 BIC #*CCERRCK> STHPO :CLEAR UNWANTED BITS 
4941 021654 737 200 00120 BIT a ZTEST ERRCK 
1662 414 BEQ TRESET SKIP ERROR 
1664 13737 601202 001 MOV STNPO, STMP “PREPARE TO REPORT ERROR 
4944 0 ere 13737 001204 001206 MOV STMP1 ‘Sime ZLOAD EXPECTED ALSO 
4945 021 2737 000200 001206 BIC ope MP2 ZLOAD EXPECTED 
021706 104031 ERROR 
921710 000137 021070 JMP ZLOOP ON ERROR 
4948 021714 41$: 
4949 021714 104421 900002 538: STEP ,2 sSTEP THE CLOCK ONE TIME 
50 021720 1044 9 90001 READ ‘PRI13 SREAD THE STATUS REGISTER 
4951 021726 012637 001202 MOV isp) $TMPO :;POP STACK INTO $TMPO 
952 021730 032737 001202 BIT A, $TMPO ?TEST FOR DATA 
021736 001406 BEQ Os 
54 021740 loaeeo 000000 READ SECO ZREAD THE D 
4955 021744 012637 001204 MOV (SP) +,$TMP1 POP STACK INTO STMP1 
4956 021730 005337 022172 eas DEC 19$ :-1 TO DATA CHRS. 
4958 021754 032737 000010 001202 BIT #SF ,STMPO :TEST FOR S/F AFTER TEOM SET 
959 021762 001006 ENE 15$ SYES BRANCH 
4960 021764 losee - 000000 528: INCB #0 
4961 921770 001351 BNE 53$ 
496¢ 021772 104026 ERROR 22. :S/F DID NOT SET AFTER TEOM SET 
4963 021774 000137 .021070 JMP 64$ SLOOP ON ERROR 
4964 022000 54$: 
4965 022000 15$: 
4966 022000 104421 000004 STEP sg 
4967 022004 1o4ee0 000001 READ “SECI ZREAD REGISTER 
968 022010 0126 ? ieee MOV (SP) +, $TMPO 3 2POP STACK INTO STHPO 
969 022014 042737 177 001202 BIC #°C<REOM>,$TMPO :CLEAR UNWANTED BITS 
4970 022022 032737 001202 BIT #REOM, STMPO 
4971 0220 001014 BNE 16 ‘SET SKIP ERR 
4972 0220 13737 001 92 001204 MOV STMPO,$ PREPARE TO REPORT ERROR 
4973 02204 013737 001204 001206 MOV STMP1. pl sine LOAD EXPECTED ALSO 
4974 0 304 052737 000002 001206 BIS #REOM LOAD EXBeCT ED 
4975 0220 Loaoes ERROR 21. zREOM FAILED TO SET AFTER END OF MESSAGE 
497%6 02205 000137 021070 = JMP 64$ [LOOP ON ERROR 
4978 022062 1044 1 READ sec! ;READ REGISTER 
79 029 1 637 091202 MOV (SP 7;POP STACK INTO $TMPO 
4980 02207 37 177 001202 BIC PECANS :CLEAR UNWANTED BITS 
4981 vee! 32737 000200 00120 BIT Re tAb. [TEST ERRCK 
4982 022106 001414 BEQ { » RESET SKIP ERROR 
498 026110 13737 001202 001204 MOV $ yee REPARE TO REPORT ERROR 
4984 0 e116 13737 001204 001206 MOV SIMPL STMPD 7LOAD exPECTED A 
4985 02 126 2737 200 001206 BIC HERRCK, STMPZ ;LOAD EXPECTED 
86 022132 104031 ERROR 25. 
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CZ2KMDA.P11 ERROR CHECK TEST FOR ALL ERROR DETECTION SEQ 0105 
4987 92 134 921070 JMP 64$ ZLOOP ON ERROR 
4 140 3 , 1 36 17$: ‘INC 65$ 
4 166 7 176 021336 cmp #176.658 ZTEST IF GO AHEAD CHARACTER 
4991 154 022737 000377 021336 CMP #377,65$ :TEST IF ALL CHARACTER'S TESTED 
499 162 Node BEQ 18$ 
4993 0 164 137 021070 JMP 
499% 0221 18$: 
4995 022170 000401 BR TST65 i 
4996 022172 000000 19$: 0 7CHR. COUNTER 
4 
4999 J RAARAAAAARARAAAEREEEAAEEARARKE TEST 65 RAAAAAAAAAARAARARARAAAAAAARE 
5000 S*ERROR CHECK TEST FOR PROTOCOL = CCP 
5001 z#ER ROR CHECK X Y 2 = CCITT=1 
500 pe ncn Be it RR RR SL ce RTS Meal a OP a a 
500 
2008 3: TEST 65 
sis] PT TITITITILIL LTTE ELE TLL ELLE ELLLE EEL LELLE ELLE EEL 
5007 022174 909004 TST65: SCOPE 
5008 022176 012737 000065 901102 MOV #65, $TSTNM : LOAD THE NO. OF THIS TEST 
022204 012737 000065 00126 MOV #65, TSTNUM *# FOR TYPE OUT 
5010 022212 012737 000001 022502 MOV ZLOAD CHARACTER BUFFER 
1 022220 012737 022226 001106 MOV nokS  SLPADR ZSET RETURN ADDRESS TO 64$ 
501 assses 104414 64$: MSTCLR ; ISSUE A MASTER CLEAR 
5013 022230 005037 023174 CLR 1 
5014 022234 104416 000067 000000 WRITE  ,SEC7,0 :SET CHARACTER LENGTH 10 8 8 BITS/CHAR 
5015 022242 104416 000005 000140 WRITE "SECS, CCP!SSL!CCITT=-1 ;LOAD MODE CONTR 
5016 022250 104416 000026 WRITE “SECS SYN ;LOAD SYN CHARACTER 
5017 022256 005037 022710 CLR 1008+ 
5018 022262 005037 022734 CLR 110$+ 
5019 022266 005037 023052 CLR + 
5020 022272 005037 022410 CLR 50$+2 
5021 022276 005037 642 CLR 11$+2 
308 022302 104416 000014 000321 WRITE  ,PRI14,TENA!RENA!MB!MC jENABLE THE FOLLOWING: 
5024 3 RENA 
5025 : MAINTENANCE BITS: MB .MC 
5026 022310 104416 000003 000001 WRITE ,SEC3,TSOM :SET TSOM 
5027 022316 104421 00000 2$: STEP 52 :STEP THE CLOCK 
5028 022322 104420 00001 READ :PRI13 SREAD THE STATUS REGISTER 
50. 022526 0126 ? 901202 MOV (SP)+,$TMPO +:POP STACK IN 
50 02e8 2 032737 000020 001202 BIT > wget. :TEST FOR BUFFER 
5031 02234 001766 BEQ ‘NO CONTINUE STEPPING. THE CLOCK 
50. 02548 013737 022502 022354 MOV 
5033 02235 104416 000000 WRITE tity O° ;LOAD A CHARACTER 
5034 022396 5237 023174 INC 19s 
5035 022 104421 00000 3$: STEP - ZSTEP THE CLOCK ONCE 
3036 022366 1044 3 00001 READ ,.PRI13 ;READ THE STATUS REGISTER 
5037 022372 126 001202 MOV (SP) +, $TMPO STACK INTO $TMPO 
5038 022376 032737 000010 001202 BIT ASF ,STMPO STEST F 
5039 022404 001017 BNE 24$ 
5040 022406 105227 000000 50$: INCB #0 
5041 022412 001363 BNE 3$ 
5042 022414 013737 001202 001204 MOV STMPO,STMP1 
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CZKMDA.P11 20-OCT-81 17:03 ERROR CHECK TEST FOR ALL ERROR DETECTION SEQ 0106 
3 022422 013737 00120 1206 MOV STMPO,STMP2 
S044 224 p37 3 ats 901306 BIS #sF .STMP2 
5 436 104017 ERROR 15. 7S/F DID NOT SET AFTER SYNC SENT 
2046 440 000137 022226 aes JMP 648 [LOOP ON ERROR 
0 644 104416 000003 000000 WRITE -$EC3.0 ;RESET TSOM 
504 452 104421 00000 7$: STEP; :STEP THE CLOCK ONCE 
5050 0 436 104420 90091 READ ,PRI13 TREAD THE STATUS REGISTER 
5051 0 0126 001 02 MOV (SP) +,$TMPO :;POP STACK INTO $TMPO 
5052 0 466 032737 000020 001202 BIT #TBMT.STMPO :TEST FOR BUFFER EMPTY 
5053 022474 001405 BEQ 
5054 02 476 106416 000002 WRITE  ,SEC2 ;LOAD A DATA CHARACTER 
5055 022502 65$: .WORD 6 
3056 922504 Boss? 023174 - INC 19$ :#1 TO DATA OUT 
5058 020510 032737 000001 001202 10$: BIT #RDA,STMPO :TEST FOR DATA AVAILIBLE 
5059 022516 001450 BEQ 11$ 
5060 022520 ogee 000000 READ , SECO ;READ THE DATA REGISTER 
5061 022524 0126 7 001202 MOV (SP) +,$TMPO :;POP STACK INTO $TMPO 
5002 022530 005337 023174 DEC 19$ [<1 TO DATA (CHR. REC.) 
5063 022534 013737 022502 001204 MOV 65$,$TMP1 [GET EXPECTED 
5064 022542 023737 001202 001204 CMP STMPO,$TMP1 STEST FOR CORRECT DATA 
5065 022550 001403 BEQ 30$ DA CH 
5 022552 104087 ERROR 23. [DATA TRANSMITTED INCORRECTLY 
5067 022554 000137 022226 JMP 648 SLOOP ON ERROR 
5068 022560 30S: 
5069 022540 104420 000001 READ , SEC1 ;READ REGISTER 
5070 022564 012637 001202 MOV (SP) +,$TMPO :;POP STACK INTO STMPO 
5071 622570 042737 177577 001202 BIC #*C<ERRCK>, STMPO ZCLEAR UNWANTED BITS 
5072 022576 032737 000200 001202 BIT #ERRCK ,STMPO TES 
5073 022604 001414 BEQ 31$ SRESET SKIP ERROR 
5074 022606 013737 001202 001204 MOV STMPO.STMP1 “PREPARE TO REPORT ERROR 
5075 022614 013737 001204 001206 MOV STMP1 .STMP2 ;LOAD EXPECTED ALSO 
5076 022622 042737 000200 001206 BIC #ERRCK ,STMP2 sLOAD EXPECTED 
5077 022630 104031 ERROR 25. ZERROR CHECK SET 
5078 022632 000137 022226 JMP 64$ SLOOP ON ERROR 
5079 022636 31S: 
5080 022636 000406 BR 12$ 
5081 022640 105227 000000 11$:  INCB 40 
5082 022644 00130 BNE 7$ 
5083 022646 104042 ERROR 34. :DEVICE IS HUNG 
5084 022650 00013 022026 JMP 648 : ON ERROR 
5085 022654 104416 000003 000002 12$: WRITE ,SEC3.TEOM :END THE MESSAGE 
5086 022662 104421 00090 13$: STEP [2 :STEP THE CLOCKONCE 
5087 022 104420 1 READ ,PRI13 SREAD THE STATUS REGISTER 
5088 022672 0126 ? 001208 MOV (SP)+,$TMPO +:POP STACK INTO $T 
5089 022676 032737 000010 001202 BIT #SF ,STMPO ‘TEST FOR SF AFTER TEOM SENT 
5090 022704 901406 EQ ‘NO BRANCH 
5091 022706 105227 000000 100$: INCB 4#c 
269 65 a ae ERROR 54° S/F CAME UP BEFORE LAST DATA BYTE RECEIVED 
5094 02 716 137 022226 JMP 64$ ‘LOOP ON TEST 
5095 0207 e737 000001 001202 14$: BIT #RDA, STHPO *TEST FOR DATA 
5097 022732 losee 000000 110$: INCB #6 
5098 022736 001351 BNE 13$ 
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CT-81 09:21 PAGE 107 
CHECK TEST FOR ALL ERROR DETECTION 


ERROR 34. :DEVICE IS HUNG 
MP 648 SLOOP ON ERROR 
AD SECO yREAD THE DATA 
MOV (SP) +,$TMPO :;POP STACK INTO $TMPO 
MOV 655 Simpl [GET EXPECTED DATA 
CMP TMPO,STMP1 :TEST DATA 
BEQ $ :0K SRANCH 
ERROR 23. [DATA TRANSMITTED INCORRECTLY 
J 648 [LOOP ON ERROR 
DEC 19$ z-1 TO CHR COUNT 


2 STEP THE CLOCK ONE TIME 
READ 2PR113 sREAD THE STATUS REGISTER 
STACK INTO $TMPO 


TEST FOR DATA 


READ 2 SECO sREAD THE DATA 
MOV (SP)+,STMP1 3:POP STACK INTO STMP1 
DEC 19$ z-1 TO DATA CHRS. 
BEQ 15$ sB=ALL CHRS REC. 
INCB #0 
E 53$ 
ERROR 22. 3S/F DID NOT SET AFTER TEOM SET 
JMP 64$ :LOOP ON ERROR 


READ .SEC1 sREAD REGISTER 
MOV 


(SP) +, $TMPO ::POP STACK INTO $STMPO 
BIC #°C<ERRCK>, STMPO :CLEAR UNWANTED BITS 
BIT #ERRCK, $TMPO : TEST ERRCK 
BNE ‘SET SKIP ERROR 
MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 
MOV STMP1,STMP2 ;LOAD EXPECTED ALSO 
BIS RRCK ,STMP2 :LOAD EXPECTED 
ERROR . 
J é 
INC $ 
Cc #26,65$ 
BEQ $ 


0 SCHR. COUNTER 


peteaeareaaeeeeeereeeenaaneee TEST 66 seeaanenareeaareeeeeeeereee 
s*ERROR CHECK TEST FOR pep torot = CCP 
s*ERROR CHECK X Y Z = CCITT 


J ERRAAAAAAAAREREEEEEEAAAEAEREAEEEEARAEEEEEAEEAEEEAERAEREREEEEAEEEEEE 


; TEST 66 


:TEST IF ALL CHARACTER'S BEEN TRANSMITTED 


SEQ 0107 
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RROR CHECK TEST FOR ALL ERROR DETECTION 


MOV 
MOV 


09:21 





oSTSTNM 


TST 
Hh roe 


»SEC7,0 
oSECS,CCP!SSL!CC 


11$+2 


SEQ 0108 


RAAAAAARAAAARAAEEAAEAARAAAARARARAARARAEEAAEAAAAARARERREREREREE 


THE NO. OF THIS TEST 
# FOR TYPE OUT 

ZLOAD CHARACTER BUFFER 

7SET RETURN ADDRESS TO 64$ 


ISSUE A MASTER CL 


-SET CHARACTER LENGTH TO 8 BITS/CHAR 
ITT-0 ;LOAD MODE CONTROL 
ZLOAD SYN CHARACTER 


oPRI14, TENA! RENA! MB! MC — THE FOLLOWING: 


»SEC3, TSOM 


*PRI13 
(SP) +, $TMPO 
#TBMT .STMPO 
65$,.#12 


SEC2,0 ;LOAD A 


19$ 


~PRI13 
(SP) +, $TMPO 
WSF ,STMPO 
24$ 


3$ 

STMPO,STMP1 
STMPO. $TMP2 
#SF .STMP2 


-SEC3,0 


*PRI13 
(SP) +, $TMPO 
#TBMT .$TMPO 
SEC2 

6 


19$ 


#RDA,STMPO 
11$ 
-SECO 


: TE 
§ RENA 

: MAINTENANCE BITS: MB .MC 
:SET TSOM 

:STEP THE CLOCK ONCE 

ZREAD THE STATUS REGISTER 

:;POP STACK INTO $TMPO 

:TEST FOR BUFFER EMPTY 

[NO CONTINUE STEPPING THE CLOCK 
CHARACTER 


sSTEP THE CLOCK ONCE 
sREAD THE STATUS REGISTER 
STACK INTO STMPO 


:TEST FOR S/F 


3S/F DID NOT SET AFTER SYNC SENT 
:LOOP ON ERROR 


sRESET 
A 


sREAD 
7:POP STACK INTO $TMPO 
:TEST FOR BUFFER EMPTY 


3LOAD A DATA CHARACTER 
3+1 TO DATA OUT 

zTEST FOR DATA AVAILIBLE 
sREAD THE DATA REGISTER 
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CIKADA.P 11 30-1-81 17:0. ERROR CHECK TEST FOR ALL ERROR DETECTION SE@ 0109 


1 5 12637 1208 MOV (SP)+,STAPO z:POP STACK INTO STMPO 
ig 7 0261 DEC 1 '=1 TO DATA (CHR. REC.) 
1 336 13737 $304 001204 MOV 5$,$TMP1 :GET EXPECTED 
14 7 001202 001204 CMP TMPO ,STMP1 [TEST FOR CORRECT DATA 
15 3¢ 14 3 BEQ $ [DATA OK BRANCH 
Ig 1040 ERROR : :DATA TRANSMITTED INCORRECTLY 
: see 000137 023230 ss JMP 64$ [LOOP ON ERROR 
3 1044 1 READ SEC ;READ REGISTER 
5220 1 6 1g g MOV (SP) +,$TMPO ::POP STACK INTO STMPO 
1 5 7? 177 901202 BIC #*C<ERRCK>, STMPO :CLEAR UNWANTED BITS 
: 32737 00120 BIT #ERRCK ,STMPO ZTEST ERRCK 
1414 BEQ 31$ ZRESET SKIP ERROR 
5224 1 0137 7 001202 001204 MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 
5225 16 013737 001204 001206 MOV $TMP1,STMP2 ZLOAD EXPECTED ALSO 
52 % 042737 001206 BIC HERRCK ,STMP2 sLOAD EXPECTED 
2 36 104031 ERROR 25. TERROR CHECK SET 
28 33654 000137 023230 a JMP 648 [LOOP ON ERROR 
5280 053640 900406 BR 12$ 
5231 02 10528 000000 11$:  INCB #0 
3232 023646 001 BNE 7$ 
5233 023650 10404 ERROR 34. :DEVICE IS HUNG 
3234 023652 000137 023230 JMP 64$ [LOOP ON E 
5235 023656 104416 000003 000002 12$: WRITE ,SEC3.TEOM :END THE MESSAGE 
5236 02 104421 900008 13$: STEP ZSTEP THE CLOCKONCE 
5237 0236 1044e0 00001 READ ,PRI13 [READ THE STATUS REGISTER 
5238 023674 012637 001202 MOV (SP) +, $TMPO :;POP STACK INTO $TMPO 
5239 023700 032737 000010 001202 BIT #SF ,STMPO ‘TEST FOR SF AFTER TEOM SENT 
5240 023706 901406 BEQ 14$ [NO BRANCH 
5241 023710 105227 000000 100$: INCB #0 
5249 023714 001003 BNE 14$ 
5243 023716 104044 ERROR 36. zS/F CAME UP BEFORE LAST DATA BYTE RECEIVED 
5244 023720 000137 023230 JMP 64$ SLOOP ON TEST 
5245 023724 032737 000001 001202 14$: BIT #RDA, STMPO : TEST FOR DATA 
246 023732 001 BNE 120$ 
5247 023734 l0see 000000 110$:  INCB 
5248 023740 001351 13$ 
5249 023742 10404 ERROR : :DEVICE IS HUNG 
3250 9 3744 000137 023230 ae JMP 643 [LOOP ON ERROR 
5252 023750 1044. 900000 READ  ,SECO zREAD THE DATA 
253 023754 01 6 00120 MOV (SP) STMPO :;POP STACK INTO $TMPO 
54 023760 013737 023504 001204 MOV 65$,$TMP1 [GET EXPECTED DATA 
55 3766 737 001202 001204 CMP STMPO, STMP1 [TEST DATA 
325 4 00140 BEQ 40s [0K BRANCH 
525 3776 10408 ERROR 23. [DATA TRANSMITTED INCORRECTLY 
2258 4000 000137 023230 a JMP 648 [LOOP ON ERROR 
5260 4004 005337 024176 ad DEC 19$ z-1 TO CHR COUNT 
5262 024010 1044 1 900002 53$: STEP 2 :STEP THE CLOCK ONE TIME 
5263 024014 1044 } 1 READ .PRI13 SREAD THE STATUS REGISTER 
26h 024020 01 001 02 MOV (SP) +, $TMPO :;POP STACK INTO $TMPO 
5265 024024 032737 001202 BIT #RDA, STMPO sTEST FOR DATA 
5266 024032 001407 BEQ 70$ 
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KMDA.P11 ERROR CHECK TEST FOR ALL ERROR DETECTION SEQ 0110 
7 4054 1044 READ SECO zREAD THE DATA 
4040 126 1 04 MOV (SP)+,STMP1 ::POP STACK INTO $TMP1 
4044 7 026176 DEC 19$ 7-1 TO DATA CHRS. 
40 1406 BEQ 15$ ZB=ALL CHRS REC. 
71 02605 70$: 
2272 4052 1 5227 000000 52$: INCB 
4 1 BNE 53$ 
5274 024 1 06 ERROR 22. 7S/F DID NOT SET AFTER TEOM SET 
75 024 000137 023230 JMP 64$ :LOOP ON ERROR 
26 024066 54$: 
4066 15$: 
5 28 4 1044 1 READ, ZREAD REGISTER 
5 024072 0126 901 3 MOV (SP) +, $TMPO 7:POP STACK INTO STMPO 
80 026076 042737 17757 901202 BIC #°C<ERRCK>,$ ZCLEAR UNWANTED BITS 
5281 024104 032737 000200 00120 BIT #ERRCK, STMPO S TEST ERRCK 
3282 024112 001014 BNE 17$ ZSET SKIP ERROR 
528 94114 O15 7 001202 001204 MOV STMPO,.STMP1 “PREPARE TO REPORT ERROR 
5284 0 41¢2 013737 001204 001206 MOV STMP1 ,STMP2 :LOAD EXPECTED ALSO 
5285 9241 052737 000200 001206 BIS #ERRCK ,STMP2 ZLOAD EXPECTED 
3286 24136 1040 ERROR 24. 
5287 024140 0001 23230 JMP 
5288 024144 0032 7 023504 17$: INC 65$ 
5289 024150 022737 000026 023504 CMP #26.65$ 
290 024156 00177 BEQ 17$ 
5291 024160 022737 000177 023504 CMP #177,65$ :TEST IF ALL CHARACTER'S BEEN TRANSMITTED 
5292 024166 00140 BEQ 18$ 
5293 024170 000137 023230 JMP 
5294 024176 18$: 
5295 024174 000401 BR TST67 i 
3296 024176 000000 19$: 0 7CHR. COUNTER 
3 
5299 peekaakakaaaeeneeeeeeaneneae TEST 67 teeanteaneaaeeeeerereentent 
5300 S*ERROR CHECK TEST FOR PROTOCOL = CCP 
5301 [ERROR CHECK X Y Z = CRC16 
2308 By SRAAERARAARAAAAAAERARARAARARARAAARAEAEAAEAEEEAEEAEEERAEERARAERRAEARERERE 
530 
re 3 TEST 67 
eens ee RHRERERERERERERERERERAAREAEAARARAREERERRRRRRRRERREREREREREEERERE 
5307 024200 000004 1S167: SCOPE 
5308 024202 012737 000067 901102 MOV #67,$TSTNM : LOAD THE NO. OF THIS TEST 
5309 024210 012737 000067 00126 MOV #67. TSTNUM *# FOR TYPE OUT. 
5310 024216 01 130 1 024506 MOV #1,65$ ;LOAD CHARACTER BUFFER 
5311 024224 012737 024232 001106 MOV #64$,$LPADR :SET RETURN ADDRESS TO 64$ 
3312 024232 104414 64$:  MSTCLR s ISSUE A MASTER CLEAR 
5313 024 005037 925200 CLR 19$ 
5314 024240 104416 00000 WRITE  ,SEC7,0 :SET CHARACTER LENGTH TO 8 BITS/CHAR 
5315 024266 104416 5 00014 WRITE SECS.CCP!SSL!CRC16 sLOAD MODE CONTROL 
5316 9 42546 104416 000026 WRITE  SEC4,SYN ZLOAD SYN CHARACTER 
2317 4262 9050 CLR 1008+ 
318 024 $6 5037 026740 CLR 110$+ 
5319 024272 005037 025056 CLR 52$+ 
5320 024276 9050 7 026414 CLR 50$+ 
5321 9 4302 005037 646 CLR 11$+ 
5322 024306 104416 14 000321 WRITE  ,PRI14,TENA!RENA!MB'MC ;ENABLE THE FOLLOWING: 
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; TENA 
: RENA 
MAINTENANCE BITS: MB MC 





104416 3 000001 WRITE +$EC3.TSOM [SET TSOM 
104421 2s: ae 862 ZSTEP THE CLOCK ONCE 
1044 1 READ PRI13 [READ THE STATUS REGISTER 
1 $ MOV (SP) +,$TMPO :;POP STACK INTO $T 
7 20 001202 BIT #TBMT,.STMPO STEST FOR BUFFER EMPTY 
1766 BEQ [NO CONTINUE STEPPING THE CLOCK 
137 24506 024360 MOV 65$,.#12 
104416 atts WRITE  ,SEC2,0 ;LOAD A CHARACTER 
0052 2 INC 19s 
1044 1 3$: STEP = 2 :STEP THE CLOCK ONCE 
1044 1 READ PRI13 [READ THE STATUS REGISTER 
126 1208 MOV (SP) +, $TMPO :;POP STACK INTO $TMPO 
737 000010 001202 BIT #SF ,STMPO :TEST FOR S/F 
1017 BNE 24$ 
105227 000000 50s: INCB #0 
001 3 BNE 3$ 
0137 001202 001204 MOV STMPO,STMP1 
13737 001202 001206 STMPO. STMP2 
052737 000010 001206 BIS ASF .STMP 
104017 ERROR 15. :S/F DID NOT SET AFTER SYNC SENT 
000137 024232 a JMP 648 SLOOP ON ERROR 
104416 000003 000000 WRITE -$EC3.0 :RESET TSOM 
104421 900002 7$: — SSTEP THE CLOCK ONCE 
104420 00001 READ .PRI13 [READ THE STATUS REGISTER 
012637 001202 MOV (SP)+,$TMPO :;POP STACK INTO $TMPO 
024 052737 000020 001202 BIT #TBMT ,STMPO :TEST FOR BUFFER EMPTY 
104416 000002 WRITE  ,SEC2 ZLOAD A DATA CHARACTER 
024 900000 65$: . WORD 6 
024510 005237 025200 ie INC 19$ :+1 TO DATA OUT 
024514 032737 000001 001202 10$: BIT ARDA, STMPO :TEST FOR DATA AVAILIBLE 
024522 001450 BEQ 11$ 
024524 104680 READ SECO ;READ THE DATA REGISTER 
024530 012637 00120 MOV (SP) +,$TMPO ::POP STACK INTO $T 
024534 337 025 DEC 19$ [+1 TO DATA (CHR. REC.) 
024540 013737 024506 001204 MOV 65$,$TMP1 [GET EXPECTE 
024546 02 737 001202 001204 CMP TMPO,STMP1 STEST FOR CORRECT DATA 
024554 1403 BEQ $ [DATA OK BRANCH 
024556 10408 ERROR : [DATA TRANSMITTED INCORRECTLY 
4 000137 024232 JMP 64$ SLOOP ON ERROR 
026564 30S: 
0 4364 104420 1 READ  ,SEC1 :READ REGISTER 
0245 1 6 1 08 MOV (SP) +, $TMPO :;POP STACK INTO $TMPO 
4576 37 177 901202 BIC #*C<ERRCK>, STMPO :CLEAR UNWANTED BITS 
460 737 00120 BIT #ERRCK,STMPO [TEST ERRCK 
461 1414 BEQ 31$ SRESET SKIP ERROR 
4612 013737 001202 001204 MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 
4 13737 001204 001206 MOV STMP1 ,STMP2 3LOAD EXPECTED ALSO 
4626 042737 00 001206 BIC BERRCK ,STMP2 sLOAD EXPECTED 
4634 104031 ERROR ‘ ZERROR CHECK SET 
024636 000137 024232 JMP 64$ SLOOP ON ERROR 
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31$: 
aes Meo | 
464 000000 11$: = INCB 
46 991 BNE 
46 04 ERROR 34. sDEVICE 1S HUNG 
46 13 623, JMP 64$ [LOOP ON ERROR 
4660 16 000002 128: WRITE +$EC3,TEOM HE MESSAGE 
104421 13$: STEP ; :STEP p tHEece 
4672 10446 1 READ PRI113 3READ THE CeO rtS REGISTER 
467 0126 120 (SP) +, $TMPO 7;POP STACK INTO $TMPO 
4 32737 000010 001202 BIT #SF ,STMPO TTEST F FOR SF AFTER TEOM SENT 
471 1406 Q 14$ [NO BRANCH 
91 024712 105 000000 100$: INCB #0 
: 02471 1003 BNE 14$ 
47, 1 ERROR 36. 3S/F CAME UP * aivaies LAST DATA BYTE RECEIVED 
394 024 900137 024232 JMP 648 [LOOP ON TEST 
395 024726 032737 000001 001202 14$: BIT #RDA. STHPO : TEST FOR DATA 
4 001006 BNE 120$ 
47 l0see 000000 110$:  INCB 
5398 024742 001351 BNE 13$ 
0247 104042 ERROR 34. :DEVICE 1S HUNG 
; 9 ire 000137 024232 a JMP 64$ [LOOP ON ERR 
502 02475 1044 900900 READ zREAD THE DAT 
03 0247 O12 120 MOV ise STHPO ::POP STACK INTO. $THPO 
2404 0247 13737 024506 001204 MOV :GET EXPECTED VAT 
05 026770 023737 001202 001204 CMP Sino. STEST DAT 
06 024776 001403 BEQ 0K BRANCH 
540 OSenos 104027 ERROR 338 *DATA TRANSMITTED INCORRECTLY 
08 9 3002 000137 024232 aa JMP 648 [LOOP ON ERROR 
10 sais 005337 025200 we DEC 19$ 7-1 TO CHR COUNT 
12 025012 104421 00000 53$: STEP 2 zSTEP THE CLOCK ONE TIME 
4 025016 1044 oo00%8 READ PRI13 ;READ THE STATUS REGISTER 
14 025022 012637 001202 MOV (SP) +. $TMPO :POP STACK INTO $TMPO 
15 025026 032737 000001 001202 BIT #RDA, STMPO TEST FOR DATA 
16 0250 001407 BEQ 70$ 
1 3056 1044 READ SECO zREAD THE DAT 
18 02504 0126 1204 MOV (SP) +, $TMP1 3 :POP STACK INTO STMP1 
19 3046 7 025200 DEC 19$ =1 TO DATA CHRS. 
9 205¢ 001406 an BEQ 15$ *B=ALL CHRS REC. 
5054 105227 000000 52$:  INCB 
g 6 5060 038 BNE $8. 
4 0 5 14096 ERROR 22. :S/F DID NOT SET AFTER TEOM SET 
5 35064 000137 024232 JMP 64$ [LOOP ON ERROR 
Gee if 
$8 6 5070 1044 1 READ SEC1 ZREAD REGISTER 
33 025074 01 1 02 MOV (SP) +, STMPO ::POP STACK INTO STMPO 
0 5100 ? 177 001202 BIC #*C<ERRCK>, STMPO :CLEAR UNWANTED BITS 
3 0 3106 stoi 000200 00120 BIT | spate :TEST gERnck, saeel 
3 5116 013737 001202 001204 MOV TMPO,STMP <PREPARE TO REPORT ERROR 
3% $52130 bt a78 td 001206 MOV TMP1 STnPe SLOAD EXPECTED ALSO 
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CHECK TEST FOR ALL ERROR DETECTION SEQ 0113 
5 1 952 7 000200 001206 BIS #ERRCK ,STMP2 ZLOAD EXPECTED 
1 0 ERROR 24 
14 1 42 JMP $ 
¢ 7 024 17$: ‘INC 65$ 
313 : ? 6 024506 cw 426.658 
1 1 218 000177 024506 cap #177 .658 zTEST IF ALL CHARACTER’S BEEN TRANSMITTED 
ace8 0 31 198 024232 JMP 64$ 
8 17 18$: 
§ 025176 000401 BR TST70 3 
025 000000 19$: :CHR. COUNTER 
ret peeaeeeekaeaarereeerenanazenr TEST 7) seeenaaeeceneeeaeenenereeete 
2430 Z*ERROR CHECK TEST FOR PROTOCOL = CCP 
51 [*ERROR CKECK X Y 2 = ODD PARITY 
2425 FERRARA AAREAAAEAEAEAARAEEAEREREREREREREREEEREEREREERAREERAEEEEE 
5654 : TEST 70 
2428 . + eReRERERERERERRARARAEReAeeeReneReReeeeeeaeeneneneeeeeeeeeeeeeee 
5457 025202 TST70: SCOPE 
5458 0 3204 012737 000070 901102 MOV #70,$TSTNM z LOAD THE NO. OF THIS TEST 
5459 025212 012737 000070 00126 MOV #70, TSTNUM : T 
5460 9 5 01 130 900001 028 00 MOV 7 55 ZLOAD CHARACTER BUFFER 
5461 025226 012737 025 1106 MOV #64$,S$LPADR [SET RETURN ADDRESS TO 64$ 
3462 025 104414 64$:  MSTCLR :ISSUE A MASTER CLEAR 
5463 025 005037 025754 CLR 1 
5464 025242 104416 aaah 000347 WRITE  ,SEC7,347 :SET CHARACTER LENGTH TO 7 BITS/CHAR 
5465 025250 104416 5 000144 WRITE  ,SEC5S,CCP!SSL!ODDP ;LOAD MODE CONTROL 
3466 025256 104416 000026 WRITE $EC4.SYN ZLOAD SYN CHARACTER 
5467 025264 00503 640 CLR 62$+ 
5468 025270 005037 3406 CLR 50$+ 
5469 9 367% 005037 0255 CLR 11$+ 
3470 25 104416 14 000321 WRITE — .PRI14, TENA! RENA!MB!MC ZENABLE THE FOLLOWING: 
2478 ; RENA 
547 : MAINTENANCE BITS: MB .MC 
5474 025306 104416 000003 000001 WRITE +$EC3. SOM :SET TSOM 
5475 9 5314 1044 1 00000 2$: STEP; :STEP THE CLOCK ONCE 
5476 025 1044 9000 READ ,PRI13 SREAD THE STATUS REGISTER 
5477 5324 126 120 MOV (SP) +, $TMPO :;POP STACK INTO $T 
3278 058836 901786 eanee eee re eel ne cece 
5481 540 Woaci at §53000 URITE Oo8e5 he LOAD A citins 
2482 5354 2559 5754 INC 136 wi 
5 104421 3$: STEP —s_ 2 zSTEP THE CLOCK ONCE 
5484 025 1044 1 READ PRI13 SREAD THE STATUS REGISTER 
5485 025370 12 02 MOV (SP) +, STMPO ?;POP STACK INTO $T 
348 0 3376 2737 10 001202 BIT #SF ,STMPO TEST. FOR S/F 
5488 025404 105227 000000 50$:  INCB 4&0 » 
5489 0 3410 001 BNE Bs 
5490 025412 013737 001202 001204 MOV STMPO,STMP1 


001202 BIT #TBMT ,STMPO TEST FOR BUFFER EMPTY 
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91 13737 001 1206 MOV STMPO, STMP2 
% §337 35 $b08%3 $1308 BIS Ayr stnre 
9 434 106017 ERROR 1 3S/F DID NOT SET AFTER SYNC SENT 
3 436 000137 025234 —_ JMP 648 [LOOP ON ERROR 
1 000000 " «WRITE ~=—- , SEC3.0 ;RESET TSOM 
3 54 1pe¢ $ 7$ STEP °§ ZSTEP THE CLOCK ONCE 
5454 1044 1 READ PRI13 TREAD THE STATUS REGISTER 
, 1 MOV (SP) +,$TMPO >:POP STACK INTO $TMPO 
5 74 106416 000002 WRITE  ,SEC2 ZLOAD A DATA CHARACTER 
50 5 65$: .WORD 6 
$04 9 350 5237 025754 cal INC 19$ :*1 TO DATA OUT 
350 925506 32737 000001 001202 10$: eI #RDA, STHPO ZTEST FOR DATA AVAILIBLE 
508 025516 1044 READ :READ THE DATA REGISTER 
3305 0255 § 0126 9 20 MOV (SP) +, $TMPO ::POP STACK INTO $T 
5510 025526 005337 025754 DEC [<1 TO DATA (CHR. REC.) 
5511 0255 13737 025500 001204 MOV 65$,STMP1 2GET E 
3518 5 373 001202 001204 CWP STNPO, STHP1 sTEST FOR CORRECT DATA 
5514 Saee8 1040 ERROR 23. [DATA TRANSMITTED INCORRECTLY 
5515 025552 000137 025234 JMP 648 [LOOP ON ERROR 
2219 Oseeee ae 41$ 
$518 955560 Maser 000000 = s: ce 
5520 025 04 ERROR 34. :DEVICE IS HUNG 
$35 9 3370 000" 39 025234 it JMP 64$ [LOOP GN ERROR 
5523 025574 1 00000, 53$: STEP ,2 zSTEP THE CLOCK ONE TIME 
$324 5600 04420 tata ks READ TREAD THE STATUS REGISTER 
525 025604 126 001202 MOV (SP) +, STMPO ::POP STACK INTO $TMPO 
3526 9 3610 $737 001202 BIT #RDA, STMPO : TEST FOR DATA 
5528 025 1044 READ SECO yREAD THE DATA 
35¢9 0, st oi2687 O01204 MOV (SP) +, S$TMP1 [POP STACK INTO $TMP1 
5530 0256 00 37 025754 DEC 19$ :=1 TO DATA CHRS. 
331 9 3634 1406 ties BE 15$ SB=ALL CHRS REC. 
$35 095688 05227 000000 © S28: ncaa. 
2336 8 5644 104086 ERROR 22. 7S/F DID NOT SET AFTER TEOM SET 
2356 137 025234 JMP 64$ [LOOP ON ERROR 
au Bats if 
5539 025652 1044 1 “READ ;READ REGISTER 
540 0256 1 $ 120¢ V TMPO +:POP STACK INTO $T 
541 ? 177 001202 BIC #*CCERRCK> ST ; UNWANTED BITS 
54¢ 56 32737 000200 00120 BIT $1 :T 
543 0 5676 1411 BEQ TRESET SKIP ERROR 
ge7¢ O58706 O1ar37 0913 74 001906 HOV STMPTSTRPS. LOAD EXPECTED ALSO rom ERROR 
5546 g 5714 042737 00 001206 BIC #ERRCK,STMP2 sLOAD EXPECTED 
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7 7 0255 17$: INC 65$ 
58 7 Hel Sga00 025500 ow ts 
230 f 108 000177 025500 cop #177.658 zTEST IF ALL CHARACTERS BEEN TRANSMITTED 
33¢ i 137 025234 aes JMP 64$ 
554 02575 01 ; S771 3 
$56 57 srs 19$: 5. SCHR. COUNTER 
3358 peeeeeaerananeereeereeeaanee TEST 7] seenereenenenaeeeeneeaeree 
$3 [ERROR CHECK TEST FOR PROTOCOL = CCP 
560 [ERROR CHECK X Y Z = EVEN PARITY 
326! 3 TRARRAAAAAARAEATAAAAAAAARARARAAAARAARAEAERAEAERERARAAEREREEEEEEE 
$568 ; TEST 71 
5565 Fy OTT TT TTT TET TTT TTT TUTTE TT TTT TTT TTT TTT TTT TTT TTT TTT TTT TT TTT TTT 
5566 025756 TS$171: SCOPE 
5567 025760 MOV #71, $TSTNM z LOAD THE NO. OF THIS TEST 
3368 0 3766 MOV #71. TSTNUM “# FOR TYPE OUT 
569 025774 MOV #1 g5 ZLOAD CHARACTER BUFFER 
3570 02600 MOV #64$, SLPADR [SET RETURN ADDRESS TO 64$ 
3371 0 601 648: MSTCLR ‘ :ISSUE A MASTER CLEAR 
2378 8 6016 WRITE  ,SEC7,347 :SET CHARACTER LENGTH TO 7 BITS/CHAR 
5574 236083 WRITE  .SECS.CCP!SSL!EVENP :LOAD MODE CONTROL 
5575 0 WRITE - [LOAD SYN CHARACTER 
3576 02604 CLR 28+ 
3358 056080 fle tks 
2379 026054 WRITE —.PRI14, TENA! RENA! MB! MC jENABLE THE FOLLOWING: 
5581 : RENA 
3582 : MAINTENANCE BITS: MB .MC 
5583 02 104416 3 000001 WRITE ,SEC3,TSOM 3S OM 
3584 026070 104421 2s: STEP); ZSTEP THE CLOCK ONCE 
585 026074 1044 READ .PRI13 :READ THE STATUS REGISTER 
5586 026100 1 1208 MOV (SP)+,$T 7;POP STACK INTO $T 
558 104 032737 001202 BIT #TBMT.$T [TEST FOR BUFFER EMPTY 
5588 112 1766 BEQ 2$ ZNO CONTINUE STEPPING THE CLOCK 
5589 114 013737 026254 026126 MOV 65$,.+12 
3590 0261 104416 $56 008 WRITE se¢2.0 [LOAD A CHARACTER 
591 1 9052 6 INC { 
3598 134 104421 38: STEP = 2 :STEP THE CLOCK ONC 
59 140 1044 1 READ ,PRI13 SREAD THE STATUS REGISTER 
59% 144 126 08 MOV (SP) +, $TMPO +:POP STACK INTO $T 
595 150 032737 10 001202 BIT #SF ,STMPO [TEST FOR S/F 
596 136 1017 BNE 24$ 
59 160 105227 000000 50$:  INCB 49 
598 164 001 3 BNE 3 
5 166 13 120 1204 MOV HI SSTMP1 
1 13737 00120 1206 MOV TMPO, STMP2 
1 6208 52737 1 1206 BIS 4SF .STMP2 
2 10 104017 ERROR 15. 7S/F DID NOT SET AFTER SYNC SENT 
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3 000137 026010 ~ JMP 648 ;LOOP ON ERROR 
16 000000 WRITE - am zRESET TSOM 
| 7$: STEP; TSTEP THE CLOCK 
1 READ PRI13 3READ THE STATUS "neGh TER 
1 MOV SP)+,$T -POP STACK I 
09 $730 001202 er #TBMT.$T TEST FOR Bul rER Hla 
1 104416 000002 WRITE  ,SEC2 ZLOAD A DATA CHARACTER 
3618 65$: .WORD 6 
13 026536 a inc 19$ 7¢1 TO DATA OUT 
eee 032737 000001 001202 10$: BIT #RDA, STMPO ;TEST FOR DATA AVAILIBLE 
2616 0014 4 BEQ 11$ 
1 1044 READ SECO zREAD THE DATA REGIST 
5618 ie 1 MOV (SP) +,$TMPO ::;POP STACK INTO $T 
5619 37 026 DEC 1 :=1 TO DATA rt . REC.) 
04 ? 00 01 02 BIC #8 ” STHPO [MASK THE PARITY BIT 
1 13737 54 001204 MOV [GET EXPECTED 
3 02 737 001202 001204 CMP Sines, Sth MP1 :TEST FOR CORRECT DATA 
1403 BEQ [DATA OK 
4 104067 ERROR SDATA TRANSMITTED INCORRECTLY 
5625 000137 026010 a JMP 648 SLOOP ON ERROR 
5 000406 BR 41$ 
8 lose 000000 11$: INCB 
001 BNE 7$ 
56 10404 ERROR 34. ZDEVICE IS HUNG 
5631 000137 026010 JMP 648 [LOOP ON ERROR 
5632 026356 41$: 
563 104421 53$: STEP ,2 sSTEP THE CLOCK ONE T 
5634 1044 9 00001 READ PRI13 [READ THE STATUS REGISTER 
5635 0126 001202 MOV (SP) +, $TMPO ::POP STACK INT 
3636 032737 000001 001202 BIT #RDA, STMPO TEST FOR DATA 
563 001407 BEQ 70$ 
5638 000000 READ SECO ZREAD THE DAT 
5639 001204 MOV (SP) +, $TMP1 3 3POP STACK INTO STMP1 
5640 026 DEC 19$ =1 TO DATA CHRS. 
2641 a BEQ 15$ [B=ALL CHRS REC. 
Fak 000000 52$: NCB 
5644 BNE 53$ 
5645 ERROR 22. zS/F DID NOT SET AFTER TEOM SET 
5646 026010 JMP 648 [LOOP ON ERROR 
5647 54$: 
5648 15$: 
5649 READ _, SEC1 ;READ REGISTER 
5650 es $5 MOV (SP) +, STMPO 7;POP STACK INTO STMPO 
5651 3 001202 BIC #*C<ERRCK>, STMPO :CLEAR UNWANTED BITS 
565¢ 001202 BIT #ERRCK ST [TEST ERR 
565 BEQ 17$ RESET SKIP ERROR 
5654 1202 001204 MOV STMPO,STMP1 PREPARE TO REPORT ERROR 
5655 1204 001206 MOV STMP1.S$TMP2 SLOAD EXPECTED ALSO 
5656 00 1206 BIC RRCK, STMP2 ZLOAD EXPECTED 
365 0260 4 17$: INC 4 
658 26 026254 CMP #26,65$ 
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59 1 177 BEQ 1 
‘ ih 000177 026254 cap a 7,658 ZTEST IF ALL CHARACTER'S BEEN TRANSMITTED | 
63 1 5 026010 on JMP 64$ | 
65 01 : TST72 i 
5 0265 tint 19$: 5° 7CHR. COUNTER 
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3666 .SBTTL TRANSMIT UNDERRUN ERROR TEST 
5069 {AARAAAAAAAARARAATAAARARAEAEE TEST 72 REAKAAAAAARAAAAAARAAAAAAAEEEE 
56 i sTRANSALTTER UNDERRUN TEST 
3671 *FOR PROTOCOL = BOP 
567 <STHIS TEST Mitt SYNC | THE SEND RECEIVE LOGIC 
5674 7*TRANSMIT A ZERO DATA BY TE 
5675 i *RE DISC HE DATA SENT 
3676 Z*STEP THE CLOCK 2 MORE CLOCK TICKS 
567 Z*TEST IF TERR SET TO INDICATE A UNDERRUN CONDITION 
5678 s*W1TH THE IDLE MODE BIT RESET THE HANDLING OF A UNDERRUN 
5679 :*CODITION FOR PROTOCOL = « BOP 
5680 [AN ABORT WILL BE SENT AND THE INDICATION 
5681 [*WILL BE RABORT SET 
2086 3 TRACAAAAAAAEAARAAAAARAAARARAAAARARARAARARARAAERAAAAEAAREREAERERERE 
2686 ; TEST 72 
5686 ERRRRERARRERERREREREEREREERERARRERERERRERERERARREEREREEREREREE 
5687 026540 000004 +8172: SCOPE 
5688 026542 012737 000072 001102 MOV #72,$TSTNM {roan THE NO. OF THIS TEST 
5689 026550 012737 000072 001262 MOV #72. TSTNUM FOR TYPE OUT 
8601 056860 OOSO3? 026 ae) dao CLEAR THE KET 
+ 
2698 056870 OsO3? 957084 Te 
5694 026574 005037 027312 CLR 61$+2 
5695 02 104416 000000 WRITE  ,SEC7,0 7SET CHARACTER LENGTH TO 8 BITS 
5696 02 104416 000005 900000 WRITE {SECS.BOP LOAD THE MODE CON 
5697 026614 104416 000014 000321 WRITE  <PRI14, TENA!RENATAC!¥B sENABLE THE TRANSMITTER 
5698 AND RECEIVER” PLUS MAINTENACE MC AND MB 
5699 026622 104416 000003 000001 WRITE  ,SEC3,TSOM :SET TSOM 
5700 026630 104421 00000 2s: STEP 2 ZSTEP THE CLOCK ONCE 
5701 026634 1044 9 00001 READ  <PRI12 TREAD THE STATUS REGISTER 
5702 026640 012637 001202 MOV (SP) +, $TMPO :;POP STACK INTO STMPO 
5703 026644 032737 000020 001202 BIT STRAT. $TMPO : TEST FOR BUFFER 
5704 026652 001766 BEQ 7NO CONTINUE STEPPING. THE CLOCK 
5705 026654 104416 000002 000000 WRITE HES 0 [LOAD ADDRESS 
5706 026662 104416 000003 000000 WRITE SEC SRESET TS 
5707 026670 104421 00000 3$: STEP 52 3 STEP THE CLOCK ONCE 
5708 026674 104420 9000 READ -PRI13 [READ THE STATUS REGISTER 
5709 026700 012637 001 02 MOV (SP)+ STHPO : POP STACK kK INTO $TMPO 
ay fare Bigs wee ome ap eatien = aHeStF 
S712 926714 082787 000020 001202 eT #TBMT ,STMPO :TEST FOR BUFFER EMPTY 
5714 026724 104416 000002 000101 WRITE  ,SEC2,°A ZLOAD A DATA CHARACTER 
aria 056736 00186 cele ~ ih 
5717 026740 013737 90120 001204 MOV STMPO, sTmP1 
5718 026746 013737 001202 001206 MOV $TMPO.$TMP2 
5719 026754 052737 000010 001206 BIS WSF ,STMP2 
5720 026762 104016 ERROR 14. :S/F DID NOT SET AFTER FLAG SENT 
5721 026764 000137 026556 JMP 101$ [LOOP ON ERROR 
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SEQ 0119 





0 4$: 
1044 1 2 7$: a :STEP THE CLOCK ONCE 
1044 1 READ ,PRI13 TREAD THE STATUS REGISTER 
0126 1 92 MOV SP)+,$TMPO ::POP STACK INTO $TMPO 
; 0 30737 20 001202 BIT #TBMT,STMPO :TEST FOR BUFFER EMPTY 
10441 2 000101 WRITE  ,SEC2,°A ZLOAD A DATA CHARACTER 
2 0 05075 iid 001202 8$: BIT #RDA, $THPO [TEST FOR DATA 
5731 0 Nesee 000000 70$ INCB of) 
3732 0 001354 7$ 
3733 0 7040 10404 ERROR 34. :DEVICE HUNG ERROR 
5734 02704 137 026556 JMP ois SLOOP ON ERROR 
5735 0 7046 104421 90000¢ 18$: STEP , 
5736 02705 104420 00001 READ  .PRI13 ZTEST FOR TSA TO SET 
5737 027056 012637 001202 MOV (SP)+,$TMPO ::POP STACK INTO $TMPO 
5738 027 032737 000001 001202 BIT #RDA, STMPO : TEST FOR DATA AVAILIBLE 
5739 027070 001404 BEQ 60$ 
5740 027072 104420 000000 READ SECO 
2741 02707 012637 001212 sie MOV (SP) +, $TMP4 z:POP STACK INTO STMP4 
5743 027102 032737 000200 001202 BIT #TSA,STMPO 
5744 027110 001 BNE 19$ 
5745 027112 105227 000000 52$:  INCB 
5746 027116 001353 BNE 18$ 
5747 027120 104044 ERROR 36. :TSA DID NOT SET ON A FORCE UNDERRUN ERROR 
5748 027122 000137 026556 JMP 101$ SLOOP ON ERROR 
5749 027126 19$: 
5750 027126 104420 000003 READ , SEC3 :READ REGISTER 
5751 027132 012637 00120 MOV (SP) +, S$TMPO :;POP STACK INTO $TMPO 
5752 027136 042 177577 001202 BIC #°C<TERR>,$TMPO :CLEAR UNWANTED BITS 
5753 027144 032737 000200 001202 BIT ATERR, STMPO : TEST TERR 
5754 027152 001 BNE 20$ [SET SKIP ERROR 
5755 027154 013737 001202 001204 MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 
5756 027162 013737 001204 001206 MOV STMP1 .STMP2 ZLOAD EXPECTED ALSO 
5757 027170 052737 200 001206 BIS ATERR,STMP2 *LOAD EXPECTED 
5758 027176 104052 ERROR 26. :TERR DID NOT SET ON A FORCE UNDER RUN 
5759 027200 000137 026556 JMP 101$ : ON ERR 
5760 027204 104421 00000 208: STEP ,2 [BEGIN LOOKING FO AN ABORT 
5761 027210 104420 00001 READ  .PRI13 
5762 027214 012637 001202 MOV (SP) +. $TMPO ::POP STACK INTO $TMPO 
5763 027220 032737 000001 001202 BIT #RDA, STMPO [TEST FOR DATA AVAILIBLE 
5764 027226 001404 BEQ 62$ 
5765 0272 104420 000000 READ  ,SECO 
2766 027234 012637 001212 MOV (SP) +, $TMP4 z:POP STACK INTO $TMP4 
5767 027240 62$: 
5768 027240 21$: 
5769 027240 104420 READ _—, SEC1 ZREAD REGISTER 
770 027244 0126 001 08 MOV (SP) +, STMPO ::POP STACK INTO STMPO 
5771 027250 042737 177 001202 BIC #°C<RKAB> STHPO [CLEAR UNWANTED BITS 
5772 027256 032737 001202 BIT #RXAB, $T : TEST RXAB 
5773 027264 001017 BNE 2 SSET SKIP ERROR 
774 0272 137 7 001202 001204 MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 
fra Weraos Stat Woosee BSHaHe BIL pmaastinee 1 MES IP re 
5777 027310 36037 000000 61$: INCB 7 . 
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TRANSMIT UNDERRUN ERROR TEST 


00133 BNE oes 
10403 ERROR ° ZNO RECEIVE ABORT OCCURED ON 
3A TRANSMIT UNDER RUN ERROR 
000137 026556 228: JMP 101$ ;LOOP ON ERROR 
$: 
000400 BR TST73 38 


peaaataeeaeaneeeeeeerenneane TEST 73 stannaneeeaneereaneearerene 
3 * TRANSMITTER UNDERRUN TEST 
:*FOR PROTOCOL = CCP 


sATHIS i atti SYNC THE SEND RECEIVE LOGIC 
;* TRANSMIT A ZER TA BYTE 


Ke OCK TICKS 
aTEST If TERR SET TO INDICATE A UNDERRUN CONDITION 
7*WITH_ THE . i aetich « RES ¥ THE HANDLING OF A UNDERRUN 





S*CODITION FOR 
Fault. Be sft Sete AND CHE INDICATION OF THIS 
* 

TRAAAAAAARAAAEARAEAAAAEAARARARAERAREARAERAEARAKRERAAAERARARRERRAERREREEREE 
3 __TEST 73 
Ahanandanenananananeeeenenenteneeneuenenenteneeentenenenennente 

000004 18173 SCOPE 

012737 00073 001102 MOV #73,S$TSTNM i LOAD THE NO. OF THIS TEST 

012737 000073 00126 MOV #73. TSTNUM FOR TYPE OUT 

104414 101$:  MSTCLR ICLEAR the KMC11 

005037 027522 CLR 50$+2 

005037 027710 CLR 52$+2 

005037 30 CLR 70$+2 

005037 030056 CLR 53$+2 

104416 000000 WRITE  ,SEC7,0 zSET CHARACTER LENGTH TO 8 BITS 

104416 000005 000100 WRITE ~SECS.CCP [LOAD MODE CONTROL 

104416 000004 000026 WRITE EC4 

104416 000014 000321 WRITE “BRI14: TENA!RENA! MCB sENABLE THE TRANSMITTER 

RECEIVER PLUS MAINTENACE MC AND MB 

104416 900003 000001 WRITE  ,SEC3,TSOM ioeT TSOM 

104421 2s: STEP 52 :STEP THE CLOCK ONCE 

1044 9 00001 READ ,PRI12 sREAD THE STATUS REGISTER 

012637 00120 MOV (SP) +, $TMPO :;POP STACK INTO $T med 

032737 000020 001202 BIT #TBMT.STMPO ‘TEST FOR BUFFER EMPTY 

001766 BEQ 3NO CONTINUE STEPPING THE CLOCK 

104416 000002 000002 WRITE  ,SEC2,STX *LOAD A CHARAC TER 

104421 3$: STEP :2 ;STEP THE CLOCK ONCE 

1044 9 1 READ ,PRI13 SREAD THE STATUS REGISTER 

0126 eo MOV (SP)+,$TMPO POP STACK INTO $TMPO 

052737 001202 BIT #sr .STMPO :¢OP FOR S/F 

O3787 000020 001202 BIT #TBMT , STMPO sTEST FOR BUFFER EMPTY 

104416 000002 000101 WRITE  |SEC2,°A ZLOAD A DATA CHARACTER 

198529 000000 50$: INCB 4&0 


SE@ 0120 
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CZ2KMDA.P11 20-OCT-81 17:0 T UNDERRUN ERROR TEST SEQ 0121 
7524 001354 BNE 
i 3¢6 01334 1202 1204 MOV egies 
13737 001 1 MOV STMP2 
7380 SE 16 001206 BAR OR 43° F STP S/F DID NOT SET AFTER SYNC SENT 
9 Be 000137 a an JMP 101s [LOOP ON ERROR 
Fe 7556 106416 000000 WRITE -$EC3.0 ;RESET TSOM 
3 ? 104421 7$: 3. er ZSTEP THE CLOCK ONCE 
7570 1044 READ PRI13 SREAD THE STATUS REGISTER 
027574 0126 Si MOV (SP)+,$TMPO :;POP STACK INTO $TMPO 
sate a3febs 952757 0000 001202 BIT #TBMT ,STMPO :TEST FOR BUFFER EMPTY 
847 02761 10441 2 000101 WRITE ,SEC2,°A ;LOAD A DATA CHARACTER 
3848 087616 08s739 aati 001202 8$: BIT RDA, STHPO [TEST FOR DATA 
$850 e76e¢ 10427 00000 © 70s: IMB HN 
5852 027634 10404 ERROR 34. :DEVICE HUNG ERROR 
3853 0 7636 900137 027344 oe JP 101$ SLOOP ON ERROR 
5855 $3 Gc6 104 20 1 READ <PRI13 ;TEST FOR TSA TO SET 
56 027652 012637 001202 MOV (SP)+, $TMPO sPOP STACK INTO $TMPO 
3857 027696 032737 1 001202 Bit #RDA, STAPO :TEST FOR DATA AVAILIBLE 
5859 27666 104420 000000 READ SECO 
ane0 os rere 012637 001212 608: MOV (SP)+, STMP4 ::POP STACK INTO STMP4 
386 027676 032737 000200 001202 . IT #TSA,STMPO 
864 Se7706 10eer 000000 vont lt ~ gon * 
5 02 1 ERROR 36. sTSA DID NOT T AF R 
586 027716 000137 027344 in JMP 101$ SLOOP ON ERR ROA en 
gee 027722 420 " «READ ~—s, SEC sREAD REGISTER 
5870 027726 13689 é 4 MOV (SP) +, STMPO ::;POP STACK INTO STMPO 
71 02773, 737 177577 001202 BIC #°C<TERR>,$TMPO :CLEAR UNWANTED B 
2B75 O7rG6 poIOTS en ES ccm SET SKIP ERROR 
5874 027750 013737 001202 001204 MOV STMPO,STMP1 ‘PREPARE TO REPORT ERROR 
5875 027756 013737 001204 001206 MOV STMP1.$TMP ;LOAD EXPECTED ALSO 
5876 027764 052737 000200 001206 BIS ATERR.STMP EXPECTED 
5877 027772 104032 ERROR 26. TERR bib. NOT SET ON A FORCE UNDER RUN 
5878 027774 000137 027344 JMP 10i$ [LOOP ON ERR 
5879 0 104421 90000 20$: STEP ,2 [BEGIN LOOKING FO AN ABORT 
5880 0 104420 1 READ :PRI13 3READ REGIST 
5881 030010 012637 1208 MOV (SP) +, $TMPO +;POP STACK INTO STHPO 
3882 030014 737 177767 001202 BIC #°C<SF>,STMPO CLEAR UNWANTED BIT 
5883 030022 032737 001202 BIT ssf F STMPO 
5884 0300 1017 BNE 23$ [SET SKIP ERROR 
5885 0300 13737 001202 001204 MOV STMPO,STMP1 PREPARE TO REPORT ERROR 
5 03004 13737 1204 001206 MOV STMP1.STMP2 LOAD EXPECTED ALSO 
5887 030046 327 7 000010 001206 BIS WSF ,STMP2 LOAD EXPECTED 
2888 030054 10 ¢27 000000 53$: INCB #0 
889 001347 BNE 20$ 
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CZKMDA.P11 UNDERRUN ERROR TES 
030062 104034 ERROR 28. 
soos 000137 027344 JMP 101$ 
33 0300 4 238: 
94 0 0004 BR TST74 


sLINE ty NOT RESYNC ON A 
sUNDERRUN ERROR WITH IDLE 
OOP ON ERROR 


SEQ 0122 
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-SBTTL RECEIVER OVERRUN TEST 


peenanananareneeeeeerennanee TEST 74 eeeeeeceneenneeneeeeeereere 
3 *RECEIVER OVER RUN ERROR TEST FOR 

:*PROTOCOL = CCP 

;*THIS TEST WILL TRANSMIT DATA T 

7*THE RECEIVER IN MAINTENANCE MODE AND FAIL TO READ 

: ae SECOND DATA BIT TO FORCE THE OVERRUN CONDITION 


SRAARARAEAAKEAAAEAERARARARAARAEAARERARAARARREREAAERERAREREERAEEEEEE 


: TEST 74 
2  RRAAAEAARAAARAARARARERERERAERARAAEARAAAAARARAEARAERERRARAAARAAREREAEE 
030072 000004 1S174: SCOPE 
030074 012737 000074 001102 MOV #74, STSTNM CAD THE NO. OF THIS TEST 
030102 012737 000074 MOV #74, TSTNUM a FOR TYPE OUT 
030110 104414 01$:  MSTCLR SCLEAR THE KMC11 
030112 104416 000007 WRITE  ,SEC7,0 :SET CHARACTER LENGTH TO 8 BITS/CHAR 
030120 104416 000005 000100 WRITE  <>SECS. ccp 3LOAD MODE CONTROL 
030126 104416 000004 000026 WRITE [SEC LOAD SYN CHARACTER. 
030134 104416 000014 000321 WRITE “BRité. TENA! RENAME MC jENABLE THE FOLLOWING: 
; RENA 
MAINTENANCE BITS: MB, MC 
030142 104416 000003 000001 WRITE  ,SEC3,TSOM [SET TSOM 
030150 104421 900022 STEP °9.8 
030154 104416 000003 000000 WRITE  ->SEC3.0 ;RESET TSOM 
030162 104416 000002 000001 WRITE .SEC2.SOH [LOAD SOH INTO TDB 
030170 104421 000040 STEP °16. 
030174 104416 000002 000101 WRITE ,SEC2,101 ZLOAD DATA #1 
030202 104421 000020 STEP ‘ : TRANSMIT DATA #1 
030, 104416 ; 000101 WRITE >SEC2,101 SLOAD D 
030214 104421 00002 STEP °8.% [SEND DATA # 
030220 104416 000002 000101 WRITE [SEC2,101 [LOAD DATA # 
030226 104421 000020 STEP ‘8. “SEND DATA # 
AT THIS POINT THE FIRST DATA BIT SHOULD BE IN THE RECEIVER 
030232 104420 000000 READ SECO zREAD THE DATA 
030236 012637 00120 MOV (SP) +, $TMPO :;POP STACK INTO STMPO 
030242 104416 000002 000101 WRITE  ,SEC2,101 :LOAD DATA # 
30250 104421 STEP 16.82 :SEND DATA #4 AND FORCE THE OVER RUN 
30254 1044 9 1 READ  ‘SEC1 SREAD REGISTER 
O30 043737 00805 00120 Bre BT CERORN OTmPO SELEAR’ UNGAN Bits 
032737 000010 $01305 BIT #ROR, STMPO 4 
30 001014 BNE 1$ [SET SKIP ERROR 
308 13737 001202 001204 MOV STMPO,STMP1 PREPARE TO REPORT ERROR 
31 13737 001204 001206 MOV STMP1.$TMP2 ;LOAD EXPECTED ALSO 
16 052737 10 001206 BIS #ROR, STMP2 OAD EXPECT ED 
030324 104035 ERROR 29. :RECEIVER GOVERRUN DID NOT SET ON 
030326 000137 030110 JMP 101$ SLOOP ON ERROR 
0303 1$: 


0303352 1044 0001 READ ,SEC1 sREAD REGISTER 
030336 013639 $01 902 MOV (SP) +, STMPO 3:POP STACK INTO STMPO 
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CZKMDA.P11 CEIVER OVERRUN T SEQ 0124 
1 030 7? 177767 00120 BIC #*C<ROR>,STMPO CLEAR UNWANTED BITS 
3384 5 37 000010 $01305 BIT #ROR, STMPO :TEST ROR 
595 1414 BEQ 2s RESET SKIP ERROR 
954 13737 901202 1204 MOV STMPO,STMP1 PARE TO REPORT ERROR 
955 13737 001206 001206 MOV STMP1 .STMP2 LOAD exbeCteD ALSO 
996 4 7 000010 001206 BIC #ROR, STMP2 :LOAD EXPECTED 
957 030402 104 ERROR 30. zROR DID NOT RESET AFTER READING 
958 TRECEIVER STATUS REGISTER 
959 030404 000137 030110 JMP 101$ [LOOP ON ERROR 
5960 930419 28: 
2961 030410 000400 BR TST75 i 
96 
aoc7 FRAAAAAAAARAREEHEAEAEKEKEREE TEST YeMmeiiitiii titi iiiticitisiiiig 
2369 ; *RECEIVER OVER. RUN ERROR TEST FOR 
2969 ‘STHIS TEST WILL TRANSMIT DATA TO 
5968 *THE RECEIVER IN MAINTENANCE MODE AND FAIL TO READ 
5969 3*THE SECOND DATA BIT TO FORCE THE OVERRUN CONDITION 
5970 TRARRAAAAAAAARAARAAARAAAAAAAAREAARARAAAAARAREAEKEAARAAEREREREREEEE 
5971 
re 3: TEST 75 
5974 jthnenneenennnneenenneeterternnnentententerentenreneetnettenents 
5975 030412 000004 18175: SCOPE 
5976 030414 012737 000075 901102 MOV #75,.$TSTNM : {hoa THE NO. OF THIS TEST 
5977 030422 012737 000075 00126 MOV #75. TSTNUM FOR TYPE OUT 
5978 030430 104414 :  MSTCLR ZCLEAR rhe KMC11 
5979 030432 104416 000007 000000 WRITE  ,SEC7,0 [SET CHARACTER LENGTH TO 8 BITS/CHAR 
5980 030440 104416 000005 000020 WRITE »SECS. 3-B0P! SAM TLOAD MODE CONTROL 
5981 030446 104416 000004 000376 WRITE “LOAD ADDRESS 
2982 030454 104416 000014 000321 WRITE “pette TENA! RENAIR AC sENABLE THE FOLLOWING: 
598 : TENA 
5984 g RENA 
5985 : MAINTENANCE BITS: MB, MC 
5986 030462 104416 000003 9000001 WRITE  ,SEC3,TSOM SSET TS 
5987 030470 104421 000004 STEP ‘[2e2 SSTEP THE CLOCK 2 TICKS 
5988 030474 104416 000003 000000 WRITE »SEC3. 0 *RESET TS 
5989 93090 104416 900002 000376 WRITE EC2, 376 [LOAD ADDRESS INTO TDB 
5 510 104421 0000 STEP “see ry SSYNC THE LOGIC 
5991 030514 104416 000002 000000 WRITE  <>SEC2,0 [LOAD CONTROL CHARACTER 
5992 030522 104421 0000 STEP 8.% :SEND CHARACTER 
5993 030526 104416 000101 WRITE  ,SEC2,101 TLOAD DAT 
5 305 104421 STEP. (8. * : TRANSMIT DATA #1 
5995 030540 104416 000101 WRITE ,SEC2,101 [LOAD DATA # 
030946 104421 0000 STEP. (B® ZSEND DATA # 
5997 030552 104416 000003 000101 WRITE .SEC2,101 [LOAD DATA & 
5998 030560 104421 00002 STEP 8. “SEND DATA # 
5999 AT THIS POINT THE FIRST DATA BIT SHOULD BE IN THE RECEIVER 
£0 : 0305 104420 900000 READ SECO zREAD THE DATA 
6002 030570 012637 00120 MOV (SP) +, $TMPO ::POP STACK Into STMPO 
6003 030574 104416 000002 000101 WRITE  ,SEC2,101 :LOAD DATA # 
6004 030602 104421 00004 STEP ° 16.82 [SEND DATA #4 AND FORCE THE OVER RUN 
6005 30606 1044 9 1 READ -SEC1 TREAD REGISTER 
6006 030612 0126 1202 MO (SP) +, $TMPO ::;POP STACK INTO $TMPO 
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C2KMDA.P11 EIVER OVERRUN TEST “ SEQ 0125 
6007 16 7 177767 001 BIC #*C<ROR>,STMPO = CLEAR UNWANTED BITS 
6008 4 737 000010 951305 BIT FRONSTRBD ; ROR 
1014 BNE SSET SKIP ERROR 

6010 13737 1202 1 MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 
1 ag 13737 001 1206 MOV STMP1.STMP2 ZLOAD EXPECTED ALSO 

601¢ 52737 10 001206 BIS #ROR, STMP2 -LOAD EXPECTED 

601 030656 104035 ERROR 29. ZRECEIVER OVERRUN DID NOT SET ON 
14 tA FORCE OVERRUN 

6015 30660 000137 030430 = JMP 101$ [LOOP ON ERROR 

beth 104420 000001 READ _—, SEC1 zREAD REGISTER 

6018 gi 6 90120¢ MOV (SP) +, STMPO ::POP STACK INTO $TMPO 

6019 74 7? 177767 001202 BIC #°C<ROR>,STMPO :CLEAR UNWANTED BITS 

6020 03070 03 737 000010 001202 BIT #ROR, STMPO : ROR 

6021 03071 1414 BEQ 2s TRESET SKIP ERROR 

6022 030712 0137 7 001202 001204 MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 

60 0307 13737 001204 001206 MOV STMP1 .S$TMP2 ZLOAD EXPECTED ALSO 

6024 030726 042737 000010 001206 BIC #ROR, STMP2 : EXPECTED 

6025 030734 104036 ERROR 30. yROR DID’ NOT RESET AFTER READING 

60 TRECEIVER STATUS REGISTER 

6027 030736 000137 030430 = JMP 1018 SLOOP ON ERROR 

6029 030742 000400 BR TST76 i 
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69 .SBTTL TRANSMIT AND RECEIVE ABORT TEST 

1 peeenanenaaanerererereaeaaae TEST 76 eeeaeeeeaeeaaeeneeeanenenet 
60 ; 

6035 *TRANSMIT ABORT AND RECEIVE ABORT TEST 

60 :*THIS TEST WILL FORCE AN ABORT 

60 3 *S1TUATION with THE IDLE BIT SET TO 0 

60 ®THE RESPONCE AT alle RECEIVER WILL BE 

6039 0A RECEPTION OF AN ABORT 

6040 TRAAAAAAAAAAAAAAAAAERARAAAAERAAARARERAEAREAAEEEARERAEAEEREREREEEE 
6041 

6048 : TEST 76 

6044 . eReReRaeReReReeneeeeeteeeeeeeeeeeanenaeereneneneeeeeeeeeeeeeer 
6045 030744 1S176: SCOPE 

6046 030746 012737 000076 00110 MOV #76, STSTNM : LOAD THE NO. OF THIS TEST 
604 754 012737 000076 0012 MOV #76.T *# FOR TYPE OUT 

6048 030762 104414 101$:  MSTCLR ZCLEAR THE KMC11 

6049 030764 104416 000095 000020 WRITE - SECS .BOP!SAM ‘LOAD MODE CONTROL 

6050 030772 104416 000004 000376 WRITE .SEC4.376 ¢LOAD THE ADDRESS 

6051 031000 104416 000014 000321 WRITE -PRI14, TENA!RENA! MB IMC ZENABLE THE FOLLOWING: 
605 3 RENA 

6054 3 MAINTENANCE BITS: MB, MC 
6055 031 104416 WRITE “SECS. ,TSOM TT 

6056 031014 104421 STEP 2s STEP 2 CLOCK TICKS 

6057 031020 104416 WRITE >SEC3.0 [RESET TSOM 

6058 031026 104416 WRITE  .SEC2.376 TLOAD THE ADDRESS 

6059 031034 104421 STEP 514. #8 [SYNC THE LOGIC 

6060 931040 104416 WRITE .SEC2,0 [LOAD CONTROL CHARACTER 

6061 31 104421 STEP °8.% [SEND CONTROL CHARACTER 

6062 031052 104416 WRITE {SEC2,101 [LOAD DATA #1 

606. 031 104421 STEP °8.% [SEND DATA #1 

6064 0. 1064 104416 WRITE >SEC2,101 [LOAD DATA # 

6065 031072 104421 STEP °8.% [SEND DATA # 

6066 031076 104416 WRITE ->SEC2,1 [LOAD DATA 

6067 031104 104416 WRITE ‘[SEC3.TEOM!TXAB :SET TEOM + TXABORT 

6068 031112 104421 STEP “8.88 [SEND CRC #1 

6069 0 1116 1044 9 READ SEC [READ ADDRESS 

6070 031122 0126 MOV (SP) +, $TMPO :;POP STACK INTO STMPO 

6071 0311 : 104421 STEP, 282 3SE C #2 

607¢ 031132 1044 READ SEC SREAD CONTROL C WARACTER 

607 O311 0126 MOV (SP) +, STMPO : POP SPACR INTO $T 

6074 031142 104421 STEP 8.83 ? SEND 

6075 031146 1044 READ SEC TREAD DAT 

607 3115 0126 V (SP) +, STMPO 7;POP STACK INTO STMPO 

6077 0 1156 1044 1 STEP Ss 9. 8 :T IT T TER 

6078 031162 1044 READ ‘SEC SREAD REGISTER 

6079 0311 1 6 (SP) +, STMPO [POP STACK INTO $STMPO 

6080 0311 7 BIC #°C<RKAB>, STMPO :¢ TED B 

6081 031 32737 BIT XAB, $TMPO TEST RX 

6082 031 1014 1$ [SET SKIP ERROR 

6083 03121 13 3 MOV STMPO,STMP1 PREPARE TO REPORT ERROR 
6084 031 16 013737 MOV STMAI . STMP? LOAD EXPECTED AL 

6085 031224 052737 BIS #RXAB, STMP sLOAD EXPECTED 
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TRANSMIT AND RECEIVE ABORT TEST 
031232 104037 ERROR 31. ;RXAB DID NOT SET ON A TRANSMIT 
[OF AN ABORT 
o3ts 000137 030762 - JMP 101$ SLOOP ON ERROR 
6090 rh 000400 } BR S177 8 
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tt ~SBTTL TRANSMIT AND RECEIVE GO AHEAD TEST 

6094 steeeeearanarereereerenaaaae TEST 77 seeneeeneceaeeeerenereneeee 
6096 7*TRANSMIT GO AHEAD AND RECEIVE GO AHEAD TEST 

609 [*THIS TEST WILL FORCE A GO AHEAD 

6098 Z*SITUATION WITH THE IDLE BIT SET TO 0 

6099 S*THE RESPONCE AT THE RECEIVER WILL BE 

6100 7A RECEPTION OF A GO AHEAD CHRACTER 

6101 3s SEAATAAAAAAAAAAAARAKAAAAAARAAARAAARAARAEARARARAAEAAAARAEEAEREAEEEEE 
61 

e108 : TEST 77 

6105 .  Reeeeneeeeeeneeaeeereerereeaananenaaeeeenaeeeeeeeeeeeeeerereeee 
6106 031242 900004 1177: SCOPE 

610 9 1244 012737 MOV #77,$TSTNM : LOAD THE NO. OF THIS TEST 
6108 031252 012737 MOV #77. TSTNUM *# FOR TYPE OUT 

6109 031 104414 101$:  MSTCLR ICLEAR THE KMC11 

6110 031 62 104416 WRITE .SECS,BOP!LM  :LOAD MODE CONTROL (USYRT LOOP MODE) 
ene 031 104416 WRITE <>PRI14, TENA! RENAIMB!MC jENABLE THE FOLLOWING: 
611 ; RENA 

6114 MAINTENANCE BITS: MB, MC 
6115 031276 104416 WRITE ~$EC3.TSOM :SET TSOM 

6116 031 104421 STEP 2 SSTEP 2 CLOCK TICKS 

6117 031310 104416 WRITE  ,SEC3.0 [RESET TSOM 

6118 031316 104416 WRITE  ,SEC2,101 "LOAD THE 1ST. DATA 

6119 031324 104421 STEP 14. #2 ZSYNC THE LOGIC & SEND 1ST.DATA 
6120 031330 10441 WRITE  ,SEC2,101 sLOAD 2ND.DATA 

6121 031336 10442 STEP 8. ® :SEND 2ND.DATA 

612¢ 1 104416 WRITE  ,SEC2,101 [LOAD DATA # 

61 135 104621 STEP ;8.% [SEND DATA # 

6126 031354 104416 WRITE  ‘SEC3,TEOM!TXGA :SET TEOM + TXGA 

6125 031 1044 1 STEP. * 288 SSEND CRC 

6126 031 1044 READ SEC TREAD ADDRESS 

61 31372 0126 V (SP) +, $TMPO 3;POP STACK INTO STMPO 

6128 9 1376 104421 STEP 8.82 [SEND CRC #2 

61 1402 1044 READ SEC SREAD DATA #1 

6130 0 1406 0126 V (SP) +,$TMPO 7;POP STACK INTO $TMPO 

6131 03141 106621 STEP 8.82 :SEND CRC #2 

61 9 1616 1044 READ SEC SREAD DATA #3 

61 1422 0126 MOV (SP) +, STMPO 7;POP STACK INTO STMPO 

61 9 1426 104421 STEP 9.83 [TRANSMIT GO AHEAD CHARACTER 
6135 031432 1044 READ SEC [READ REGISTER 

6136 0314 01 MOV (SP) +, STMPO 7;POP STACK INTO STMPO 

6137 03144 3 BIC #*C<RXGA>,STMPO :CLEAR UNWANTED BITS 

oro osi4e SH Bue * emanat TEST ete ERROR 

6140 O31460 137 7 MOV TMPO,STMP1 *PREPARE TO REPORT ERROR 
gies Baneee uarar Bit pancachts 100 OTE A IPre 

elds $31202 104040 ERROR 32. — ZRXGA 016 NOT, SET ON A TRANSMIT 
6145 031504 000137 031260 JMP 101$ [LOOP ON TEST 

6146 031510 1$: 
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RANSMIT AND RECEIVE GO AHEAD TEST 


FRAAAAAAAAAAAAARAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAERAAEAAAAAAAAEAEEY 


3 SEXTRF 
THIS TEST RUNS ONLY EXT. DATA LOOP 
s THIS TEST WILL yong A WALKING ONES DATA PATTERN 
U THE EXTERNAL DATA LOOP CLOCK PATH. 
THE TEST IS INTENDED TO CHECK THE EXTERNAL DRIVERS AND RECEIVERS. 
sTHIS TEST WILL PERFORM THE FOLLOWING SEQUENCE 
71.2 ti & A hs CLEAR PULSE 
© = 
s$c588r Yen : rm. oRENA,MB(EXTERNAL LOOP) 


ET 
$$: =STeP CLOCK 2 T 
TEP 


| 
SEQ 0130 | 


“Tent SETS 
yc THE CURRENT DATA PATTERN 
79=READ DATA BYTE AND VERIFY 





: TEST 100 
PUTT TTTTTTITITITTTTITITITITITITTITITTLLL TLL LLL LLL LLL 
781100: SCOPE 
MOV #100, STSTNA LOAD THE NO. OF THIS TEST 
MOV #100.T tw FOR TYPE OUT 
108: 8178 #200. TE EDAT -1S EXT. TESTS ENABLED? 
BNE :B=NO SKIP TEST 
MOV #10$, $LPADR SSET RETURN ADDRESS (ERROR) 
MOV #1,$TMP3 S INITIALIZE DATA PATTERN 
1$: MOV #7. $TMPG :COUNT DATA SENT 
URITE™ »SECS 
WRITE ete TENA! RENA! MB ENABLE EXT. LOOP, XMIT & REC. 
V STH 3. 3s LOAD DATA FOR TRANSMITTING 
WRITE — .SEC3,TSOM [SET TRANSMIT START OF MESSAGE 
STEP ;STEP CLOCK 2 TICKS 
WRITE SECS, 0 AR TSOM 
118: WRITE *SEC2 <LOAD THE DATA WORD 
MOV #9..9$ 
21$: STEP ,2 
READ .PRI13 
MOV (SP)+,$TMP1 
BIT #20,$TMP1 :1S TBMT SET? 
BNE 2 $ ‘B=YES TRY FOR 2ND BYTE 
DEC *WITHIN WATCH 
BNE e18 *B=YES 
MOV TMP1 SMP? SLOAD DATAA FOR ERROR 
BIS i STMP ‘SHOW TBMT SHOULD BE SET 
| 
228:  =—DEC $THPs :-1 TO DATA SENT 
BNE 11$ SB=SEND NEXT DATA 


om 
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CZKMDA.P11 20-OCT-81 17:0 RANSMIT AND RECEIVE GO AHEAD TEST SEQ 0131 
031724 4$: “WATCHDOG COMPLETION OF DATA BYTE 
5 031726 012737 900011 032056 MOV #9.,98 
031732 104421 : 5$: STEP 2. 
9 1736 1044 9 1 READ ,PRI13 sCHECK IF RDA IS SET 
17% 0126 1204 MOV (SP) +, $TMP 
031746 032737 1 001204 BIT #1, $TMP1 iS DATA AVAILABLE? 
10 031754 001014 BNE 64 YES 
11 0 1756 005337 032056 DEC 9$ : UPDATE WATCHDOG 
lg 031762 001 3 BNE 5$ ;B=KEEP TRYING 
13 0 1764 013737 001204 001206 MOV STMP1,STMP2 “LOAD ERROR D 
14 031772 052737 1 001206 BIS #1,STMP2 ‘SHOW RDA SHOULD BE SET 
15 104052 ERROR 42. 
at 032002 000137 031554 JMP 4 
17 0 6$: “READ DATA CHR. AND VERIFY 
6218 0 104420 000000 READ =, SECO zREAD DATA 
19 03201 0126 7 001202 MOV (SP) +, $TMPO 
6220 032016 013737 001210 001204 MOV STNPS, STMP1 
6201 0 3024 023737 001204 001202 CMP STMP1.$TMPO z1S XFER CORRECT? 
63 2 032032 001403 BEQ a 
23 032034 104027 ERROR 23. 
6224 032036 000137 131554 JMP 1$ 
6225 OeSoe 106337 121 7$: ASLB STMP3 ;UPDATE DATE DATA & TEST FOR DONE 
6226 046 103402 BCS BS 
6227 032050 000137 031554 JMP 1$ ZTEST NEXT CHR. 
6228 032054 8$: 
6229 032054 000401 TST101 i 
6230 032056 000000 9$: 0 
6231 .SBTTL CRC-32 TESTS 
6232 FF RARAAAAAEEAAREEEEREREEEEREEEEARERAEEREREEEREEERERREREEREAREERERE 
6233 :SCRCTER 
6234 :THIS TEST WILL CHECK THAT THE TRANSMITTER 
6235 i CHECK | (CRC- 2 )ERROR FLAG (PR14(2]:(1)) WILL SET BY TRANSMITTING 
6236 zA DATA MESSAGE WITH THE XMIT CHECK MODE ENABLED 
6237 ZAND AN ILLEGAL CRC 32 CODE APPENDED TO THE DATA 
6239 [THE DATA WORD TRANSMITTED IS A BYTE OF ALL ZERO'S 
6240 SAND THE APPENDED | 32 BIT CRC IS = 1. 
6241 :**BOP - MODE ONLY 
Ocha ZTHIS TEST WILL PERFORM THE FOLLOWING SEQUENCE 
6245 31. ISSUE A MASTER CLEAR PULSE 
6246 72. SET PROTOCOL = 
6247 3. SET CRCHK (TRANSMITTER CHECK MODE) 
6248 74. TEST TCRCE AND RCRCE ARE NOT SET 
6269 75. SET ECRC, TENA, MB (EXTERNAL LOOP) 
6250 :6. SET T 
6251 37. STEP CLOCK 2 TIC KS 
6252 ‘8. TEST FOR 'TBMT’’ SET (RDY.FOR DATA) 
6253 79. LOOP TO TRANSHIT® Tig DATA BYTE (0) AND OUTPUT 
e HN get flame OC 
6296 311. TICK CLOCK 15. MORE TIMES TO PRESENT TEOM TO THE TDB 
6258 
6259 312. TEST THAT ““TCRCE’’ IS SET (TRANSMIT CRC ERROR) (REPORT IF NOT) 
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CRC-32 TESTS 


CZKMDA.P11 20-OCT-81 17:03 SEQ 0132 
6260 213. IF FIRST TIME TEST THAT "RCRCE’ CLEARS BY WRITTING TO A ONE 
61 ; (PREVIOUSLY READ REGISTER CONTENTS IS WRITTEN) 
626¢ 313. IF SECOND TIME A LINE RESET IS ISSUED AND ‘TCRCE’’ IS TESTED 
6 ; FOR BEING CLEARED. 
ese 
6266 : TEST 101 
Fy RUERRERARRRRERERREREAAARAEREREAARARRERERERREEREREREERERREREREEEE 
6269 0 T$T101: SCOPE 
6270 032 012737 000101 00110 MOV #101, $TSTNM : LOAD THE NO. OF THIS TEST 
71 0 30 012737 000101 00126 MOV #101. TSTNUM :# FOR TYPE OUT 
72 03207 902087 032604 CLR ;INIT.PASS FLAG 
03210 105737 001256 TSt8 CRC32F sCRC32 ENABLED? 
6274 032106 100402 BMI 1$ jB=YES 
6275 032110 90015 032574 JMP 11$ [SKIP TEST EXT. LOOP NOT ENABLED 
6276 032114 012737 032114 001106 1$: MOV #1$,$LPADR sSET RETURN ADDRESS (ERROR) 
6277 032122 104414 MSTCLR TISSUE A MASTER CLEAR 
6278 032124 104416 000005 000007 WRITE  ,SEC5S,BOP!DISCRC :SET BOP MODE 
032132 104416 000013 000040 WRITE  ;PRI13,CRCHK :SET TRANSMIT CHECK MODE 
;TEST THAT BITS 182 OF PRIMARY 14 ARE CLEAR 
6281 032140 104420 000014 READ ,PRI14 :GET CRC-32 ERROR STATUS BITS 
6282 032144 012637 001292 MOV (SP) +, $TMPO 
6283 032150 032737 000006 001202 BIT ATCRCE !RCRCE,STMPO ZARE STATUS BITS CLRAR? 
032156 001411 BEQ 2$ [B=YES 
6285 032160 013737 001202 001204 MOV STMPO,$TMP1 :SET UP ERROR STATUS 
86 032166 042737 001204 BIC #TCRCE!RCRCE.STMP1 sSHOW BITS SHOULD BE CLRAR 
6287 032174 104046 ERROR 38. [PRI14 BITS 182 SHOULD NOT BE SET 
6288 032176 000137 032114 JMP i$ 
6289 032202 104416 000014 000131 2S: WRITE -PRI14,ECRC! TENA! MB! RENA sSET EN. CRC-32, TENA, EXTERNAL S/S 
6290 032210 104416 000003 000001 WRITE  SEC3,TSOM 
6291 036518 104421 STEP ere sSTEP THE CLOCK 7 TICKS 
6292 032222 104416 000003 000000 WRITE  ,SEC3,0 : 
6293 032230 012737 032612 032606 MOV WBADCRC, 138 [POINT TO DATA & ILLEGAL CRC 
6294 032236 012737 000005 032610 MOV #5,14$ :1 DATA 4 CRC 
6295 032244 000427 BR 35 
6296 032246 3$: :TEST THAT "'TBMT’’ IS SET (RDY. FOR DATA) 
6297 032246 104420 READ  ,PRI13 zREAD REGISTER 
6298 032252 012637 00120 MOV (SP) +, STMPO :;POP STACK INTO $TMPO 
6299 032256 042737 177757 001202 BIC #°C<TBMT>,$TMPO :CLEAR UNWANTED BITS 
032264 032737 000020 001202 BIT #TBMT , STMPO :TEST TBMT 
6301 032272 001014 BNE ‘SET SKIP ERROR 
6302 032274 013737 001202 001204 MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 
6303 052302 013737 001204 001206 MOV STP. STMP2 ZLOAD EXPECTED ALSO 
304 032310 052737 000020 001206 BIS #TBMT .STMP sLOAD EXPECTED 
6305 032316 104015 ERROR 13. ; TBAT FAILED TO SET W/TSOM SET @ CLK STEPPED. 
032320 000137 032114 JMP & 
6307 032324 117737 256 032342 35$:  MOVB  a13$,4$ [LOAD A DATA BYTE AND CRC 32 
032332 005237 032606 N 33 
6309 032336 104416 2 WRITE  ,SEC2 
6310 032342 000000 4$: 
6311 032344 104ge1 000020 STEP 8.*2 zSTEP CLOCK 8 TICKS 
6312 032350 005337 032610 DEC 14$ : DONE? 
6313 032354 001334 BNE 3$ :B=NO 
6314 032356 104416 000003 000002 WRITE »$EC3 TEOM [SET TEOM 
6315 032364 104421 000042 STEP 517.80 :TICKS SHOULD LOAD THE TEOM (176)*TEOM NOT SHIFT 
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TESTS 


SEQ 0133 
;TEST “TCRCE’* IS SET AND “'RCRCE** IS NOT 


READ PRI14 
MOV (SP) +, $TMPO zACTUAL VALUE 

MOV STMPO,STMP1 TSET UP EXPECTED 
BIC #B1T1,$TMPO TEXPECTED 
BIS #8112. $TMPO : 

CMP STMP1.STMPO z1S “TCRCE’* SET? 
BEQ 6s :B=YES 

ERROR 38. 

JMP i$ 

“TEST FOR TYPE OF CLEAR TO BE TESTED 

TST 128 71ST. TIME OR 2ND. 
BNE 10$ ‘B= 

-TEST FOR CLEARING "TCRCE’’ BY WRITTING THE BIT WITH A ONE 

MOV STMPO, 7$ ZREWRITE ORIGINAL CONTENTS OF REG. 
WRITE »PRI14 

READ PRI14 sREAD ERROR STATUS BIT FOR BEING CLEAR 
MOV (SP) +, $TMPO 

MOV STMPO, STMP1 ?SET UP EXPECTED 

BIC #8172. $TMP ‘CLR THE TERCE ‘BIT 

BIT #TCRCE,STMPI 31S BT CLEAR 

ERROR 38. :*TCRCE’ FAIL TO CLEAR BY REWRITE OF A 1 
con 12s ZNOW RERUN AND DO 2ND CLEAR. 


issue A hati tinst TEST eee * CLEARS 
sREAD ERROR STATUS BIT FOR BEING CLEAR 






READ 

MOV (SP) +, $TMPO 

MOV STMPO.$TMP1 :SET UP EXPECTED 

BIC #B1T2.$TMPO [CLEAR THE AASRCE™ BIT 

BIT #TCRCE,STMP1 ‘IS BIT CLEAR 

BEQ TST102 33 

ERROR 38. 

0 ZPASS FLAG FOR CLEARING ROUTINES 









-BYTE 0 :DATA WOR 
-BYTE 1 :LSB Fae BIT CRC 
-BYTE 0 ; 
BYTE 0 C iLLE 
HS 


& 


DRAAAAAAAH 
UN=3S 


TRTETELTAEL 
SUONAUSWN—O 
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C-32 TESTS 
Ff ARRAAAAAEAEAAAAAAAEAEEEEEEEEEAAEEAAAARARARERAAERAERAARAERRARARREE 
sSCRCRER 
THIS TEST WILL CHECK THAT THE RECEIVER CHECK CcRC=32) 
SERROR FLAG (PR14(1J:(1) WILL SET BY TRANSMITTING A DATA 
SROBE MOT EMBED tecnecR® RODE (PRISESICN) THE APPENDED 
= 
3CRC~32 IS 32 BITS =0000000001 THE MESSAGE IS 8 BITS 


sTHIS TEST WILL PERFORM THE FOLLOWING SEQUENCE 


31. ISSUE A MASTER CLEAR PULSE 
i@- SET PROTOCOL BoP 
; TEST TCRCE_AND RCRCE ARE NOT SET 
4. SET ECRC, TENA, RENA, MB (EXTERNAL DATA LOOP) 
g. STEP CLOCK 2 T1Cks 
; TEST FOR “TBMT’’ SET (RDY FOR DATA 
8. LOOP TO TRANSMIT THE DATA BYTE (0) AND OUTPUT THE 4-8 BIT CRC 


ET 
TICK CLOCK 24. MORE TIMES TO PRESENT TEOM TO 


10. RDB 
11. TEST THAT “'RCRCE'' Is uel, (RECEIVE CRC ERROR) (REPORT IF NOT) 
12. IF FIRST TIME TEST THAT ‘RCRCE’ CLEARS BY WRITTING TO A_ONE 
12. IF SECOND TIME A TINE "RESET IS ISSUED AND ‘'TCRCE’ IS TESTED 
“FOR BEING CLEARED. 
: TEST 102 
PITITIIILLILLL LLL TELL LEE LEE LL LEE EEE EE EEE 
032620 000004 781102: SCOPE 
032622 012737 000102 001102 MOV #102, $TSTNA OAD THE NO. OF THIS TEST 
032630 012737 000102 001262 MOV #102. TSTNUM jg FOR TYPE OUT 
032636 005037 033 CLR 12$ :PASS FLAG 
032642 105737 001256 TSTB  —- CRC32F zCRC32 ENABLED? 
2646 100402 BMI 1$ :B=YES 
032650 000137 033356 JMP 11$ [EXT. LOOP NOT ENABLED 
654 012737 032654 001106 1S: MOV #1$,SLPADR [SET RETURN ADDRESS (ERROR) 
032662 104414 MSTCLR 
032664 104416 000005 000007 WRITE ,SECS,BOP!DISCRC T THE BOP MODE 
032672 104416 000013 000040 WRITE  :PRI13,CRCHK :SET xt? RODE “NO GEN. 
-TEST THAT BITS 182 OF PRIMARY 14 ARE CLEAR 
032700 104420 000014 READ 
32704 0126 00120 MOV (SP) +, STMPO 
0536710 056737 000006 001202 eI! ACRE RCRCE STAPO : ARE STATUS BITS CLEAR? 
0327 13732 001202 001204 MOV STMPO, STMP1 Ser UP ERROR STATUS 
985784 104046 oO OOIC02 BIC, SICRCEIRCRCE.STAPO SHIM UTS, SHAD OF CLEAR cer 
032736 000439 32654 JMP 1$ 
032742 104416 14 000131 2S: WRITE -PRI14 ECRC! TENA! RENA! MB EM. CRC, TENA,RENA!EXT.DATA LOOP 
032750 104416 3 000001 WRITE 3, TSM 
032756 104421 000004 STEP ZSTEP THE CLOCK 
B35505 usees poets 355et8 mov ‘Set3.0 138 {BOINT TO DATA & ILLEGAL CRC 
032776 012737 ¢ 033372 MOV #5,14$ 21 DATA 4CRC 
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MACY] 
17:03 CRC=32 TESTS SEQ 0135 
BR 3$ 
258: -TEST TAMT 1S SET 
1 READ 1 ZREAD REGISTER 
120 MOV SP) +, $TMPO :;POP STACK INTO STMPO 
177 BIC #°C<TBMT>,$TMPO :CLEAR UNWANTED BITS 
000020 BIT #TBMT ,STMPO TEST T 
BNE ZSET SKIP ERROR 
001202 MOV STMPO,STMP1 “PREPARE TO REPORT ERROR 
001204 MOV STMP1.STAPS ZLOAD EXPECTED ALSO 
000020 BIS #TBMT STP ZLOAD EXPECTED 
ERROR 13. :TBMT FAILED TO SET W/TSOM & CLK STEPPED 
032654 JMP 5 
“LOAD DATA CHR AND STEP CLOCK 
900300 3$: MOVB =. -@13$ , 48 ZLOAD DATA BYTE 
033370 INC 
000002 e WRITE »SEC2 
000020 STEP —s_ , 8. #2 :8 TICKS 
000000 READ ,SECO ZREAD DATA TO PREVENT ROR 
TST (SP) + :BUMP STACK 
033372 DEC 14$ DONE? 
25$ 3;8= NO 
000003 WRITE  ,SEC3,TEOM 
000004 V 148 
000020 45$: STEP 806 
000000 READ SEC ZREAD DATA TO PREVENT ROR 
TST (SP) + 
033372 DEC 14$ 
BNE 45S 
>TEST "RCRCE’’ IS SET 
000014 READ 11 
001202 MOV (SP)+,$TMPO 
00120 MOV STMPO,STMP1 :SET UP EXPECTED 
00000 BIS #21T1,$TMPO [SET EXPECTED 
001202 CMP STMPO,STMP1 71S RECEIVED ERROR SET 
BEQ 5$ *B=YES 
ERROR 38. 
032654 J 
5S: :TEST FOR TYPE OF CLEAR TO BE TESTED 
033366 ist 128 zAST. OR 2ND. TIME 
;TEST FOR CLEARING "TCRCE’’ BY WRITTING THE BIT WITH A ONE 
001202 MOV TMPO, 7$ ;REWRITE THE ORIGINAL CONTENTS 
000014 ud WRITE »PRI14 
000014 8$: READ ,PRI14 
90120 MOV (SP) +, $TMPO gREAD ERROR STATUS BIT FOR BEING CLEAR 
120 MOV STMPO,STMP1 SET UP EXPECTED 
90000 BIC #81T1.$TMPO [CLR THE "RCRCE’ BIT 
Bit #RCRCE, STMPO 1S BIT CLEAR? 
ERROR 38. RCRCE’’ FAILED TO CLEAR BY REWRITE OF A 
eee aS: diitiee aaa , 
032654 JMP 1$ . 
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CZKMDA.P11 

6477 

64 

64 1 

6480 16 10441 12 000001 

Ge HEE Sieh Bis 

648 1 001 

oe tas fas BOR isk 
ee 033356 

6487 033356 001406 

6488 033 10404 

6489 033 000137 032654 

6490 033 000000 12$: 
6491 033370 000000 13$: 
6492 033372 000000 148: 


SEQ 0136 


sISSUE A "LINE RESET’ AND TEST THAT "RCRCE’’ CLEARS 
WRITE ,PRI12,LNRST ZLINE RESET 
READ 114° 3 

mov {Shs -STRRO :SET UP EX 
BIC #81T1.$TMPO CLEAR the  RcRce” BIT 
BIT #RCRCE , STMPO 1S BIT CLEAR? 
BEQ TST103 33 

ERROR 38. 

JMP 

9 ;PASS FLAG 

0 
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CZKMDA.P11  20-0CT ;% :03 CRC=3 SEQ 0137 
6493 33 RERAAAAAAEAAAAAAAARAAAAAAAAARAEAAAAAARAARAAAAAARAARARAAARARAARERAAEEEE 
649% zSCRCNER 
6495 :THIS TEST WILL CHECK A NON-ERROR CRC RECEIVE CHECK AND NON-ERROR TRANSMIT CHECK 
64 [BY TRANSMITTING A DATA STREAM (NON-GENERATE) W with A PRE 
649 SCALCULATED CRC APPENDED (3 WORDS (1 DATA & 2 CRC 
64 : THE DATA PATTERN CONSISTS OF WALKING A ONE sctnoss 16 BITS 
64 (1.€. 1101 ) AND THE 32 BIT CRC IS CALCULATED FROM 
6500 TROUTINE CALLED BY “JSR PC,CRCCAL"’. 
650 
6303 ZTHIS TEST WILL PERFORM THE FOLLOWING SEQUENCE 
6505 :1. ISSUE A MASTER CLEAR PULSE 
6506 ig. § SET PROTOC OL BOP 
650 33. SET TENA,RENA 
6508 34. sft "CROAK NCPRANSATTTER CHECK MODE) 
6509 25. TEST, “TCRCE’ AND ‘RCRCE’’ ARE NOT SET 
6510 i$. SET “‘TSOM"’ 
6511 77. STEP CLOCK 2 TACKS 
651 :8. TEST FOR “TBMT’’ SET 
651 79. CALCULATE CRC 
6514 :10. LOOP TO TRANSMIT THE DATA AND CRC 
6515 :11. TICK CLOCK TO COMPLETE DATA STREAM 
651 18. TEST THAT 'TCRCE’’ AND "RCRCE'' BITS ARE NOT SET (REPORT IF EITHER SET) 
6317 :13. UPDATE DATA BIT AND LOOP UNTIL DONE 
6519 
6320 : TEST 103 
652 + eRERHREREREREREREREREREREREARRERRAR RARER RRRRERERREEREREREREE 
6523 033374 000004 781103: SCOPE 
6524 033376 012737 000103 001102 #103, STSTNA : LOAD THE NO. OF THIS TEST 
6525 033404 012737 000103 001262 mOV reser :# FOR TYPE OUT 
6 033412 105737 001256 TST cae 3F weRC32 ENABLED? 
6527 033416 100402 BMI 
6528 033420 000137 034110 JMP iss. 
6529 033424 012737 033446 001106 101%: MOV #1$, SLPADR ZSET RETURN ADDRESS (ERROR) 
6530 033432 01 30 000001 034074 MOV # SINITIALIZE DATA LOW WORD 
6531 033440 012737 100000 106 MOV #160000, 13$ ‘BIT 15 OF 2ND. WORD IS LAST OUT 
6532 033446 104414 1$: MSTCLR 
6533 033450 104416 000005 000007 WRITE “SECS BOP !DISCRC :BOP MODE AND DISABLE CRC-16 
6534 033456 104416 000013 0 WRITE PRI1S.C zSET XMIT MODE-NON GENERATE 
6959 104416 000014 131 WRITE ‘PRI14 RENATECRC! TENA!ME 
6537 sTEST THAT "TCRCE"’ AND “RCRCE’’ ARE NOT SET. 
6538 033472 104420 000014 READ, 
6539 033476 126 7 001202 MOV (SP) +, $TMPO 
640 05 30 05 2737 000006 001202 eI! #TCRCE !RCRCE .STMPO zARE CRC STATUS BITS CLEAR? 
654 9 351 01 37 1202 001204 MOV STMPO,STMP1 ; 
654 35 737 001202 BIC #TCRCE'RCRCE.STMPO :SHOW EXPECTED 
6544 0335 104046 ERROR 38. [PR114 182 SHOULD NOT BE SET 
6545 3 530 000137 03344 JMP 4 
6 3534 104416 000003 000001 2$: WRITE “SECS. .TSOM :SET TSOM 
6547 033542 104421 000004 STEP TICKS 
6548 033546 104416 000003 000000 WRITE eres, 0 ZELR TSOM 
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cRC-3 


TESTS SEQ 0138 
R2 
CLR Hy 
JSR PC, CRCCAL gCALCULATEHE 32-B1T CRC 
jhice ORD R cRe IS IN STMP4 AND LOW ORDER IN $TMP 
CLR (Rese z1ST. 2 BYTES ARE 0 
MOV 13$, (R2)+ ZSTORE DATA 
MOV STMPS, (R2)+ = CRC 
MOV STMP4. (RO) 
034076 MOV 473,98 zREPOINT TO DATA 
034100 MOV #8.,10$ [COUNT 8 BYTES OF DATA OUT 
0341 : MOV #8..,11$ :COUNT 8 CHARACTERS IN 
033650 3$ MOVE 6 a9$, 358 
INC 9$ 
- WRITE »SEC2 
yADDITIONAL CLOCK TICKS MAY BE REQUIRED BECAUSE OF 
SUSYRT LOGIC INSERTING OF ZEROS IN DATA STREAM. 
[THE FOLLOWING SEQUENCE WILL MONITOR BOTH XMIT AND REC 
“SIGNALS TO COMPLETE DATA AND CRC MESSAGES. 
034104 348: Rov #11.,12$ zWATCH DOG XFER (CAN INSERT UP TTO 2 0°S/BYTE) 
DEC 12$ 77100 MANY TICKS AND NO RESPONSE? 
BEQ 66$ ‘B= Y 
READ =, PRI13 z1S RDA SET? 
BIT WRDA, (SP)+ 
BEQ 37$ :B = NO 
READ SECO SYES READ DATA 
TST (SP) + ‘DROP DATA ON FLOOR 
DEC 11$ TARE ALL DATA CHRS. IN? 
BE 5% :B=YES-GO 
37$: READ PRI1 71S TBMT SET? 
BIT #TBMT, (SP)+ : 
BEQ 36$ [B=NO KEEP STEPPING 
DEC 10$ TARE ALL CHRS. SENT? 
BGT $ [NO LOAD NEXT 
BLT aS [B=FLAG SENT 
000002 WRITE gag C3-TEOM [SET END OF MESSAGE 
000000 38$: WRITE  |SEC3.0 ZCLR END OF MESSAGE 
5$: :NOW TEST THAT “TCRCE’’ AND "RCRCE’’ ARE NOT SET 
READ —_,PRI14 ZREAD REGISTER 
MOV (SP) +, $TMPO [POP STACK INTO $STMPO 
00120 BIC #°C<TCRCE'RCRCE>.STMPO :CLEAR UNWANTED BITS 
00120 BIT ATCRCE !RCRCE, STMPO :TEST TCRCE!RCRCE 
BEQ és ZRESET SKIP ERROR 
001204 MOV STMPO.STMP1 “PREPARE TO REPORT ERROR 
001206 MOV TMP1. $TMP2 gL OAD EXPECTED ALSO 
001206 BIC #TCRCE!RCRCE,STMP SLOAD EXPECTED 
ERROR 39. 3 
JMP 1$ 
68: ASL BE ZUPDATE THE DATA 
acs 14$ 
ROR 13$ ZALLIGN BIT XFERED 
JMP 13 
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S02 Oscoe0 sot3t 033446 a ee 


;STORE DATA AND CRC 
:1ST. ccs 

: CRCS 

CURRENT DATA PATTERN 


gs: 
sPOINTER TO DATA FOR XMIT 
108: BYTES OF DATA SENTISTARTS @ 10 OCT) 
11$: sBYTES OF DATA REC. (STARTS @ 10 OCT.) 
\¢3: H DOG COUNTER FOR DATA BYTES TRANSFERED 
Fe $ SACTUAL DATA XMITTED (MIRRORED) 
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DONS 


KMDA.P11 SEQ 0140 
1 J ARAAAARAAAEAAAAAEAEAEEEEAAEAAAAAAAAAAERAAAAAARERAAEARAAAARAAEERAEE 
:SCRCTGN 
j 3THIS TEST WILL CHECK cRC~32 TRANSMIT | NERAT Y TRANSMITTING 
4 WORD BUFFER OF A WALKING ONE ( ) DATA PATTERN 
5 ZAND CHECKING THE RECEIVED CRC32 DATA. THe EXPECTED CRC FOR THE DATA 
MESSAGE (WORD) IS CALCULATED IN THE ROUTINE CALLED BY ‘JSR PCCRCCAL 
8 é 
ZTHIS TEST WILL PERFORM THE FOLLOWING SEQUENCE 
1 ‘. ISSUE A MASTER CLEAR PULSE 
ig: TEST "TCRCE™ AND “RCRCE’* ARE NOT SET 
74. SET ECRC.RENA, TENA, MB 
75. SET TSOM 
i6. STEP FLOCK, 2 11 
:7. TEST “TRMT FOR Ser (RDY. FOR DATA) 
:8. LOOP 10 TRANSMIT AND RECEIVE THE DATA WORD 
710. LOOP TO STEP CLOCK AND RECEIVEHE CRC-32 
111. TEST RECEIVED CRC-32 
312. -UPDATE DATA PATTERN AND REPEAT UNTIL DONE 
;_TEST 106 
jsssaehasuaeusnusaveneeareacnacaccenencsncsaseacsaseasnacseses 
034112 900004 787104: 
034114 012737 no #106, $TSTNM LOAD THE NO. OF THIS TEST 
034122 012737 MOV #104. TSTNUM jy FOR TYPE OUT 
034130 105737 TSTB = CRC 32F zCRC32 ENABLED? 
034134 100402 BMI 101 
0341 00013 JMP 
034142 012737 101$: MOV 43 SLPADR ZSET RETURN ADDRESS (ERROR) 
034150 012737 MOV és INITIALIZE DATA (LOW WORD) 
5 034156 012737 MOV 416 138 oeseee Yn DATA XMITTED (15=LAST BIT OUT) 
034164 104414 1$: MSTCLR 
034166 012757 MOV #128, 11$ :POINT TO DATA XMITTED 
0541 4 005037 CLR SKEEP A RECORD OF TIMESDATA READ 
9 0 104416 WRITE “SECS BOP'DISCR 3SET BOP MODE & DISABLE CRC-16 
054 104416 WRITE 114 RENAL TENALECRC!MB 
14 1044616 WRITE Pets 6 GEN zMODE (CRC-32) 
034222 1044 READ 14 
34 1 6 MOV (SP spate NTO STMPO 
03 BIC ATT the RCRCE siti sCLEAR UNWANTED BITS 
? BIT #TCRCE !RCRCE ,$T TEST TCRCE!RCRCE 
0 46 14 H BEQ $ RESET SKIP ERR 
034 137 MOV TMPO,STMP1 PARE TO REPORT ERROR 
034 56 013737 MOV STMP1.S$TMP2 gL OAD EXPECTED ALSO 
34 64 737 BIC ATCRCE'RCRCE, STMP [LOAD EXPECTED 
034 1 30 MOV T TMP 
737 BIC #RCRCE'TCRCE.STMPI ;SHOW BITS SHOULD BE CLEAR 
306 104047 ERROR 39. 
$e 1 Lig 2s Ware SES. TSOM 3SET THE T 
0 3 104421 STEP STEP Crock 8 TICKS 
034326 104416 WRITE °SEC3.0 [CLR TSOM 
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P11 cRC- SEQ 0141 
34 012737 744 MOV #4,9$ :BYTE OUT COUNTER FOR DATA 
48 oss 7 Ero 35$: mOVe 118,48 ZLOAD BYTE TO BE XMITTED 
0052 7 7 INC 11$ 
54 1 : WRITE »SEC2 
13 034760 $35. MOV #11.,15$ ZWATCH DOG THE TICKS 
44$: STEP ,2 :MONITOR TBMT FOR SETTING 
7 READ PRI1 71S RDA SET? 
1 BIT #RDA, (SP)+ 
BEQ 46$ :B=NO 
000000 READ SECO TREAD D.R. 
1 TST (SP)+ :POP STACK 
1 034756 INC 14$ 
0 760 468: DEC 13$ MORE THAN 11. CLOCKS SINCE A TMT 
0 13 READ PR113 :1S TAMT SET? 
20 BIT #TBMT, (SP)+ 
0 BEQ 44$ :B=NO STEP AGAI 
0 034360 SWAB CGS ZEXCHANGE DATA BYTES 
9 444 034744 bec % ® SARE WE XMITTING DATA OR FLAG? 
03459 2404 BLT 47$ [B=FLAG SENT 
Sscces Qoorse COCs 200002 ye? ngage :35 "clock TEOM OUT 
034464 104416 000003 000000 47$: WRITE ,SEC3.0 [CLR TEOM 
sCLOCK FLAG AND DATA UP TO CRC CHRS. 
472 012737 000004 034744 MOV 44,98 :BYTE COUNTER 
500 012737 000013 034760 42$: MOV #1i.,15$ SWATCH DOG DATA XFER 
1o4ge1 00000 45$: STEP 3ZEROS MAY BE INSERTED AND STRPPED BY 
DEC :TOO MANY TICKS? 
005337 0347 i5$ T 
0015 BEQ 1 s 


SUSYRT SO ADDITIONAL CLOCK TICKS MUST 
“BE COMPENSATED FOR - IS RDA SET? 


BEQ : STEP AGAIN 
000000 READ .SECO 3READ fare REGISTER 


. 
eeneenaneene 


RSRSONVE 
85 
LNSSEKSS 
2am 
“Ss 
>: oa 
> bad 
g 


7 
4 
0057, TST (SP)+ [POP $ 
6714 328 905¢ 034756 INC 14$ 
6715 544 005 034744 DEC 9$ 
550 001353 BNE 42$ 7STEP FOR NEXT CHR. 
6718 034552 012737 34744 iy werT OS lates: ;BYTE COUNTER 
6719 034366 O1g737 1 034766 sale MOV asiNPG, 108 [DATA STOREAGE = $TMP6 AND STMP7 
6721 0 256 1Osc34 S$: STEP i, ;MONITOR RDA FOR DATA BYTE COMPLETION 
0 9055 ? 7 DEC 15$ :TO0O MANY TICKS? 
} 104656 13 SCTE iOS RDA SET? 
ofS? O3é61 32786 . Bro gnoA. (sP)+ oad 1S al SET 
1 £30 READ SECO TREAD CRC CHARACTER 
6728 9 4 111 116 (SP) ,a10$ :STORE CRC BYTE 
g 095 a“ HE USB POP STACK 
6731 636 3287 34756 INC 14$ . 
6732 034642 005337 034744 DEC 9 DONE? 
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001347 
005008 034742 
00073 047462 
001214 
001212 

034742 
O3< 160 


001216 
001220 


034164 
034754 
034164 


001222 
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_ CRC=32 TESTS 


BNE 51$ 3;B=NO 
ye es THE CRC-32 FORHE CURRENT DATA MESSAGE 


wpe ae WITH CRC IN STMP4 & $T 
fav ;LOAD DATA FOR CRC CALU. 
JSR Pe, CRC sCALCULATE THE CRC 
“TEST THAT THE GENERATED CRC IS SAME AS CALCULATED 
tmp SIMPS. »STMP6 31S HIGH ORDER WORD CORRECT? 
CMP STMP4 ,STMP7 ?1S LOW ORDER WORD CORRECT? 
BNE 6s [B=NO 
ASL [DONE ? 
acs 16$ *B=YES 
ROR 133 TALLIGN DATA XMITTED 
JMP 1$ [D0 NEXT DATA VALUE 
61$: ERROR 41. 
JMP 1$ 
6$: MOV 13$,$TMP10 
ERROR 40. ZCRC GENERATED IS NOT CORRECT 
yn 1$ 
8$: 
9$: 0 
10$: 0 
11$: 0 :POINTER FOR DATA XMITTED 
12$: 0 31ST. 2 pA DATA CHRS. 
13$: 0 [2ND. 2 DATA CHRS. 
14$: 0 :#@ TIMES D.R. READ 
15$: 0 
16$: 
BR TST105 i 
ZENTER ROUTINE TO LOOP FOR NEXT LINE 
: TEST 105 
eeeeeeeeeeeaeadaneneretererareneereneneaneeegeeeeeeaeeeeeeeeere 
181105: SCOPE 
MOV #105, STSTNA LOAD THE NO. OF THIS TEST 
MOY #105 105,73 te FOR TYPE OUT 


-SBTTL END OF PASS ROUTINE 


peep retine ne green ypiriinie ao eee aaa ts 

| SINCREMENT THE PASS NUMBER (S$PASS) 

z*TYPE ‘END wes MXXXXK"® a XXXXX IS A DECIMAL NUMBER) 
MONITOR GO TO IT 


SIF THERES A 
IF THERE ISN'T JUMP TO NXTUN 
SEOP 
SCOPE 
CLR STSTNA 33ZERO THE TEST NUMBER 
INC SPASS 7IN Swi ap | PASS NUMBER 
BIC #100000,$PASS ;DON'T ALLOW A NEG. NUMBER 
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CZKMDA.P11 END OF PASS ROUTINE SEQ 0143 
6789 DEC (PC)+ 7; LOOP? 

6 SEOPCT: .WORD 1 

6791 : BGT SDOAGN rr YES 

679 MOV (PC)+,a(PC)* 3;RESTORE COUNTER 

679 5 SENDCT: .WORD 1 

6794 3040 ¢ SEOPCT 

6795 035 ty 035107 TYPE SENDMG 3 TYPE “END PASS s 

6796 439 MOV $PASS,-(SP) SAVE $PASS FOR TYPEOUT 

679 305 sf TYPDS 3360 TYPE-—DECIMAL ASCII WITH SIGN 
6798 104401 035104 TYPE SENUL STYPE A NULL CHARACTER 

6799 2666 915700 Sea0G8 $GET42: MOV arse, A 33GET MONITOR ADDRESS 

6800 035064 00140 BEQ [BRANCH IF NO MONITOR 

6801 035 RESET tICLEAR THE WORL D 

680¢ 50 904710 SENDAD: JSR yee 7:60 TO MONIT 

6803 03507 40 NOP 33SAVE ROOM 

6804 035074 000240 NOP [FOR 

6805 035076 000240 NOP tfACTI 

6806 035100 SDOAGN: 

6807 035100 000137 JMP a(Pc)+ 7 ;RETURN 

6808 035102 002312 SRTNAD: .WORD NXTUN 

6809 35104 37 377 000 S$ENULL: .BYTE saat CHARACTER STRING : 
6810 035107 015 042412 042116 SENDMG: .ASCIZ <1$>e15>/END pass # 

6811 035114 050040 051501 02012 

6812 035122 000043 





-ASCIZ /TRANSMIT STATUS REGISTER BIT FAILED TO CLEAR AFTER LINE RESET/ 
eASCIZ /MODE CONTROL REGISTER BIT FAILED TO CLEAR AFTER LINE RESET/ 


eASCIZ /PRIMARY REGISTER ERROR/ 

eASCIZ /FLOATING ONE'S ERROR/ 

eASCIZ /SECONDARY REGISTER READ ERROR/ 

eASCIZ /THE FOLLOWING READ ONLY BIT CAN BE WRITTEN/ 
eASCIZ /TRANSMIT STATUS REGISTER BIT FAILURE/ 
eASCIZ /MODE CONTROL REGISTER BIT FAILURE/ 

-ASCIZ /CHARACTER LENGTH REGISTER BIT FAILURE/ 


-SBTTL ERROR MESSAGES 


1 EMI: 


ERROR MESSAGES 
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“oA ST 
T 
$3) 1 
1 
1 
34 1 
1 
71 
$32 
5 
$3 
511 
+2 

051 
0511 
$24] 
61 
201 
74 
45 
01 
45 
124 
4515 
2] 
35 
01 
05 
0001 
75 
71 

51 
128 
aet) 
0511 
0241 
$2 
5 
35 
201 
B708 
108 
1 
1 
5 
5 
5 
1 
1 
1 
1 
5 
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MAT TAS OS 

A ALA ALAA 
MAM MMM MM 
Soooo°oco 
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wm 
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SEQ 0145 
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ERROR MESSAGES 
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CZKMDAO DMS11=DA STAT 
Dilagneaan 17:03 


CZKMDA.P11 


-ASCIZ /SECONDARY INCREMENT ONE'S TEST FAILURE/ 

eASCIZ /SECONDARY REGISTER DID NOT CLEAR AFTER LINE RESET/ 
eASCIZ /TBMT NOT RESET AFTER TSOM SET WITH TENA SET/ 
eASCIZ /S/<*/>/F DID NOT SET AFTER FLAG SENT/ 

eASCIZ /S/<*/>/F DID NOT SET AFTER SYNC SENT/ 

eASCIZ /RAC FAILED TO SET AFTER 3 DATA BYTES TRANSMITTED/ 


eASCIZ /TBMT FAILED TO SET/ 
eASCIZ = /S/<'/>/F DID NOT RESET/ 


So - ~ mal . wn oS nN 

- - - - _ - _ - 

= = = = = = = = 

uu us w w ua ws kk uw 
Nek wNO Onone- wowmowdoemM om Tom Sess oroom OFCOM OFRWN OrNnNe 
orem Te -Oe- KNOT ™ coum D4 o a oe ad) s- 3m Treo Sooo 
noeenrme FONE KN ONE KN Nene own - - Town pe Sat 4) ore ce 
SSSSSS SSSSSS SSSSSSSS SSSSSSS FS SSoS3S3S SSSSS SSS SSSSS 
~ SLSSANSSSS y AANA lin te See oh} NOOCOoOM ys ATO KROMMLCOROMMM On —wTowu°o 
TNOWMNNN HK NAN Renrnns ee } Neer NAF OCO0Oerr- O0OCeFK- COON NNT 
om Dob te 4 NQNEK Mee MRNRKO MRK KVR CUT 
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CZKMDA.P11 20-0CT-81 17:03 ERROR MESSAGES SEQ 0146 
6925 0 1 54502 524 
6926 036274 090193 Ti9e Oe 101 
6927 0 0465 52111 2524 
6928 03631 809188 
69 12 042122 sate 920208 EM18: .ASCIZ /RDA FAILED TO SET AFTER 3 DATA BYTES TRANSFERED/ 
69 83 11] 193 83 04 
6931 036526 020117 38 $piS3 
6932 0 tz 83 101 524 020122 
69335 0 <6 20063 Hn bes ege 
6934 0363 sth or o76! 1 pate 5 
6935 036356 052040 04 35 51516 
6936 036364 82298 0425 sg the: 
6937 036372 051522 046517 0435040 EM19:  .ASCIZ /RSOM FAILED TO SET/ 
6938 036400 044501 042514 020104 
6939 036406 047524 051440 052105 
6940 036414 000 
6941 036415 106 051111 052123 EM20: .ASCIZ /FIRST DATA BYTE TRANSMITTED IN ERROR/ 
6942 036422 042040 $2519) peo io} 
6945 0364 B2ae55 524 052040 
6944 0364 04052 NT 044515 
6945 036444 052124 042105 044440 
6946 036452 020116 051105 047522 
6947 0 ones 
6948 0364 0425 046517 043040 EM21: .ASCIZ /REOM FAILED TO SET AFTER TEOM SET/ 
6949 036470 044501 042514 020104 
6950 036476 047524 051440 052105 
6 036504 040440 976108 051105 
6952 036512 052040 047505 020115 
$984 03659 besa Ouosie 043040 EM22 ASCIZ /LINE FAILED TO RESYNC AFTER TEOM SET WITH IDLE RESET/ 
6955 0365 044501 042514 020104 
6956 036540 047524 051040 051505 
6957 036546 047131 020103 043101 
6958 036554 042524 pee ies Bes3ee 
6959 036562 046517 051440 052105 
6960 036570 053440 052111 020110 
6961 036576 042111 042514 051040 
6962 0. 051505 052105 000 
6963 036611 104 p76i0t 020101 EM23: .ASCIZ /DATA TRANSMITTED INCORRECTLY/ 
6964 036616 051124 047101 046523 
6965 o 30088 052111 pegoee pet 153 
6966 036632 047111 047503 0 A165 
6968 036646 $1308 b 9353 000122 EM24 ASCIZ /ERROR CHECK BIT FAILED TO SET/ 
6969 036654 044103 021305 00173 
69 p0665 044502 peice 040506 
6971 036670 ps6it) 105 052040 
$37 O36 706 051105 333 020133 EM25 ASCIZ /ERROR CHECK BIT SET AND SHOULD NOT HAVE/ 
6974 036712 044103 1308 0 o1i3 
6975 036720 044502 egies 83636 
6976 0367 o201ss 101 020104 
6977 036734 044123 052517 042114 
6978 50786 047040 052117 044040 
6979 036750 053101 105 
6980 036754 047516 052040 040522 EM26: .ASCIZ /NO TRANSMIT ERROR ON A FORCE UNDERRUN/ 


SEQ 0147 


12 
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ERROR MESSAGES 


cy1 
:03 


MA 
7 


C 
1 


A 


4 


“DA ST 
20-0CT 





~ASCIZ /NO ABORT INDICATIONS RECEIVED ON A FORCE UNDERRUN/ 


eASCIZ /RECEIVER OVERRUN DID NOT SET ON A FORCE OVERRUN/ 
eASCIZ /RECEIVER OVERRUN DID NOT RESET AFTER STAUS READ/ 


~ 
a 
wo 
a 
So 
Oo 
S 
be 
oy 
3 
g 
<= 
& 
a 
< 
uu 
2 
o 
o 
uw 
> 
— 
tas 
Vv 
[ve] 
a 
2 
~ 
~ 
— 
=) 
” 
$ 


eASTIZ /LINE DID NOT RESYNCE ON A FORCE UNDERRUN/ 
-ASCIZ /NO RECEIVE ABORT ON A TRANSMIT OF A ABCRT/ 


: E 


EM27 
EM28: 


MWNOMIM OCOO-CCOoOMMNM VODOMNo MWMANNTMOMN MON TINEMN KRRKROORN KR - CORN 
=FTFOTOUNVUNONUNONTON ONUNNONONN eee Teo eer rvue oo 

MAT > Se $e B= NOWFASCCNENEANTFAE NEON Ne EO See TKNesA cewtrecene 
INE NONK NRK RRR KL KK ONONONK KONONMNUN SOMO MR SOMONR—whty 


SSSSS FSSSSISS SSSSSSSERSSSISS BSSSSESET SASRSSE SSTsSSsS 


Onrr. WNUK OAKKR KOM nwuuown RR OONOMN TS FT TFOUMOOM—-K WT OO OMe ™ 


CNRK Neer KK OP NeTenie PNM EHNA 
HOISISISSSSIOISTASSLTS SSSLSSS SSSLOSS FZEZFSY FsISISZ 
YLOLVRVRL ING Be EVRA YR IPLEVR EL AYR SENSES ONGR ING BNO SANG 
SSSR RS RES SES SRB AD AR RRA RASSSNSNS NAS ADEE NOR ER URSA 
SOCSCOCOCOCO COCO OCOOCO OOO OOOO OOOO OOOO OOOO OOOO OOOO OOOO OOO OOO OO OOO 
SUSSSSSRE TEST TELS RESUS SASS BseK Ne re ot oP RANK AA RARE RENEE AS 
ESESCESSS SESS ESS OO EOS SOS PSO OP SPO OPE EPOPE SS PENS PSPS SS SL SS 
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C2KMDA.P11 20-OCT-81 17:03 ERROR MESSAGES SEQ 0148 
2037 03744 104 053105 041511 EM33: .ASCIZ /DEVICE I$ STILL TRYING TO SYNC/ 
7038 037483 020105 O3i31% 05144 

7039 037 524 046114 05204 

7040 057466 054522 047111 02010 

eh 7474 47594 051440 067131 

706 037304 5124 020105 046513 EM34: .ASCIZ /THE KMC11 IS HUNG/ 

704% 037512 030503 020084 081511 

7045 0575 040 947125 900107 

7046 057526 047516 051440 045057 EMSS: .ASCIZ /NO S/<'/>/F AFTER TEOM WAS SET/ 

7067 057534 940440 052106 051105 

7048 057542 052040 047505 020115 

er a8 Gil Bo 

7051 037560 027523 0201 042523 EM36: eASCIZ /S/<‘'/>/F SET BEFORE LAST DATA BYTE RECEIVED/ 
Moss pSrsee 95015% peosne pesenE 

7058 037574 042592 046040 051501 

7054 037602 020124 060506 040524 

7055 057610 041040 052151 030105 

7056 057616 042532 042903 055111 

aed $33 7 - 193 ososes 04204 EM37 ASCIZ /RSA DID NOT SET ON A TRANSMIT RRUN/ 
Thee PSrese OM2itt peseee Os3ti7 — 
7060 037642 051440 02105 047440 

7061 037650 020116 020101 081124 

7062 037656 047101 046523 052111 

7063 037664 052440 042116 051105 

roee 037672 924386 rey: 031063 &EM38 ASCIZ /CRC=-32 ERROR STATUS BITS (PR14-182)/ 
7066 037704 042440 051122 081117 

706? 037712 051440 040594 052526 

7068 037720 020123 044502 051594 

7069 037786 924040 051120 052061 

Ort ois eth $3456 ate EM39 ASCIZ /CRC=-32 TRANSFER CAUSED STATUS ERROR/ 
7072 037750 052040 040522 051516 

7O7$ 057756 42506 0201 0303 

707% 37764 951525 942105 051440 

7075 037773 040504 59524 020123 

7Oy8 beobKe BSt10s 56e08 031068 EM40:  .ASCIZ /CRC-32 GENERATED IS NOT CORRECT/ 
7078 040014 043440 047105 051105 

7079 040022 052101 042108 044440 

7080 040030 020125 047516 020124 

7081 040036 047503 081122 041505 

7083 940046 051042 040504 020042 ENG2: .ASCIZ _/"RDA" FAILED TO SET ON DATA TRANSFER/ 
7084 940054 940506 046111 ests . 
7085 04 $2040 020117 049523 

040079 920124 947117 942040 

rOBe 060076 101 920101 051124 

7088 040104 047101 043123 051108 

rome Sbii0 FN ecesee esisig Outs .ascad senweree tecowulte / 

7091 940120 042306 20128 047111 

7092 040126 047503 050115 042514 


SEG 0149 
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ovwoornr. AERIS AP hee toe Sly A a Se Sey Spel Aa Ser pay AY MTOM MVUOoomM 
yt et mts 8 ASSS ARSS y ate MANE NONE AN&E Ke 
Soese gases es eseeses eeu eseseuauesseueesecand 
3333S Sa Saoe0 o33SSS8S 


Be NN NGS - 99---F oor SENS es 


ReesseKGhees 


SeSBSSEESSeSEES 
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85903 
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RISRIRL SWS 
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3 
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esc teeter eeese S335 os S35 
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Ln 


SHBE-HI SHBE-LO WAS-HI WAS-LO DATA/ 


KMC11 = LINE 


PC 


eASCIZ / TEST 


SHIIEENERVSS 


phe ame Sh 4 


gyyeess ek epk a 


S33 
RARanS 
S333 
Syey 
at tS 


ww 
feel aoe 
AAR 


Ss3 
a3 


Or.00 
www 
=e 
LAR 


- EVEN 


3 


mas 
O01 988 


00 
00 
00 
00 


—— 
&* 


1 
1 
1 
1 
1 
1 
1 


e 


— 


IIVIVIVAVSIYIAIAY 


CRIS SSVSALUN ASS 


geeees 
NANO 


S=38 


Se 
SSNS 


RN 
S8S833 SSSsS 
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—2—2— 

pe Pon Pee Per Pee er PP Pg 
iar Se fr 


a ee 
WAN 


Soooooooooo 
FASINS 


RERES 


sssgessgssasst 


EELLERRETEEERES 
SSSSS33 888338 


SS 
2 
ss 


DT1: 


DT2: 


OT3: 


DT4: 
DTS: 
DT6: 


DT7: 


DT8: 


DF1: 


DF 2: 
DF4: 
DFS: 
DF6: 
DF7: 





-BYTE 


-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 


-EVEN 

ROUTINE USED TO LOAD OR MODIFY Ti 

ENTRY POINTS ry USED, ONE 
AS THE TABL 


OND IFY 
:WHEN pee ENTERED FROM THE MONIT 
R BLOCK Tok must is INVOLKED 


TWO 


SAB 
ENTERS THE CONFIGURE MODE AS 
= eet get Rey | VEC. 


TSTNUM , SERRPC ,SDVICE .CLINED REGIST ,STMP1,$TMPO,0 
TSTNUM, SERRPC ,SDVICE,CLINED,STMP1 ,STMPO,0 
TSTNUM , SERRPC ,SDVICE,CLINED,STMP2,STMP1 ,0 


TSTNUM, SERRPC ,SDVICE ,CLINED 0 
TSTNUM, SERRPC ,SDVICE .CLINED,STMPO,0 
TSTNUM, SERRPC ,SDVICE.CLINED,STMPO,STMP1 ,0 


TSTNUM, SERRPC ,SDVICE ,CLINED ,STMP4 ,STMPS ,STMPO,STMP2,0 


TSTNUM, SERRPC ,SDVICE ,.CLINED,.STMPS ,STMP4 ,STMP6,STMP7,.STMP10,0 


6.0,1,1,0,0,0,0 


0,0,1,1,0,0,0,0 


PARAMETER STATUS BLOCKS. 
ITIAL START-UP AND THE 


OR ROUTINE THE FIRST 
CONSOLE TO 
“ict ADDRESS INTERRUPT 
O BE ENABLED OR 


=—z~ 


1ED THE ROUTINE 
THE ASTERISK (* OPERATOR THEN HAS THE 


ENS THE P TER BLO NVOLKS 
sTHE C ‘0 STATUS (AFTER INPUTTING STATUS 
THIS THEN IS LAST BLOCK OPEN) 


REMAINDER OF TABLE WITH SUCCESIVE 


DEV ADR 
LTDENTICAL STATUS AS/PER LAST (THE LAST STATUS BLOCK 


See ee 
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Cz ti 17:03 ERROR MESSAGES SEQ 0151 
sENTERED) *NOTE IF ISSUED AS FIRST COMMAND IN ‘MODIFY 


sMODE THE TABLE IS FILLED AS/THE FIRST KMC11. 
*E (CR) [EXITS TO THE CALLING ROUTINE I.E. (MONITOR) 





3 
Sm J 
z 
= 
goceseo: Be Se Sete te 





10 
11 041060 c zHOLD REC. TTY CHR. 
le 106¢ CUNIT: :POINTS TO CURRENT UNIT OPEN 
1 1 : :# OF KMC11°S ENABLED 
14 041 CONF IG: 
15 061 CURTAB: :CURRENT BLOCK OPEN 
1g 041 7 042466 SETTAB: MOV #KMCTAB,R1 SPOINT TO PARAMETER TABLE-BLOCK 1 
1 107 1$: CLR (R1)+ [CLEAN THE MESS 
18 041100 042626 CMP R1, AKMCTBE [DONE ? 
19 941104 BNE 1$ SBR=N 

7220 1106 0424 MOV #KMCTAB,R1 

ree] 04111 041070 MOV R1, CURTAB 

eee 041116 041166 JMP T 

ree :MODIFY TABLE ROUTINE ENTRY POINT 

7224 1136 NOTR: 

7225 041122 104401 041130 TYPE ,64$ zi TYPE ASCIZ STRING 

7226 041126 000402 BR MOD TAB t:GET OVER THE ASCI2Z 

7227 33648: .ASCIZ /72/ . 

7228 061136 MODTAB: 

ees 041134 005737 041066 MODTAB: TST CONFIG sFIRST TIME? 

72 041140 00100 BNE 1$ SBR=NO 

7231 041142 000137 041072 JMP SETTAB 

7232 0461146 1$: 

7233 041146 104401 041154 TYPE 65$ ri TYPE ASCIZ STRING 

7234 041152 000404 BR 4$ t:GET OVER THE ASCIZ 

7235 ::65$: .ASCIZ <15><12>/*# / 

7236 041164 64s: 

7237 041164 000401 BR PT+2 

ce 041166 000555 PT: BR 5$ sGET FIRST SETUP 

7240 

7241 041170 104410 RDCHR 

7242 041172 011637 041060 MOV (SP), CHRADR ECHO 

7243 041176 104401 041060 TYPE CHRADR 

7244 041202 0227¢6 000115 CMP #115, (SP)+ 1S IT AM? 

7245 041206 0014 BEQ 25$ SBR=YES 

7246 061210 022746 000101 C #101,-(SP) tI1S iT AN A? 

Bi Susie BT ose me it 

7249 78 § 122726 pai6 111$:  CMPB #105,(SP)+ zIS IT AN E? 

7250 041 001401 BEQ 113$ *B=Y GO! 

7251 061 BR NOTR 

725, sFIND # OF KMC11°S ACTIVE AND STORE IN “KMCNT*’ 

7253 041232 OC5037 041064 113$: CLR KMCNT 

7254 061 36 12701 042666 MOV #KMCTAB,R1 

7255 041 4 3761 800008 1$: Ist Ri) Pr z1S UNIT ENABLED? 

Bs i 50 267483 000002 sie RI) ZARE LINES ENABLED? 

7259 041256 005 1064 INC KMCNT YES 

7260 041262 062701 $0006 2s: ADD #6,R1 
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SEQ 0152 


1 0127 042626 CMP R1 , AKMCTBE ; DONE? 
1 00136 BNE 1$ : 
1274 RTS PC zYES 





1276 25$ 
1276 104413 RDDEC 
1 1 600 MOV (SP)+,RO 31S # 4? 
1 1 041062 MOV RO.CUNIT [PRINT LINE UNIT # 
O41 10001 MOV RO.R1 
131 3 BLE NOTR 
O41 12 1 0087 000020 CMPBSséRO, #16. r1S #<16.? 
131 3301 BGT NOTR *BR=NO 
O41 000241 CLC 
1 005000 CLR RO 
041324 062700 000006 26$: ADD #6. .RO :MULTI X 6. 
041330 005301 DEC R1 
78 G41 352 001574 BNE 26$ 
O41 062 042460 ADD AKMCTAB=6 RO 
7 1340 01003 941070 MOV RO, CURT 
041344 104401 04135 TYPE 65$ z:TYPE ASCIZ STRING 
7282 041350 0004 BR $ "GET OVER THE ASCIZ 
3:65$: .ASCIZ <15><12>!(DEV.ADR.) (ENABL.-LINES) (CRC/32-EXT/INT) UNIT#! 
7284 041436 648: 
7286 ;ROUTINE TO DISPLAY CONTENTS OF CURRENT BLOCK 
041436 3$: 
7288 041436 104401 041444 TYPE ,67$ rz TYPE ASCIZ STRING 
041442 00040 BR 6$ t:GET OVER THE ASCIZ 
7290 33:67$: .ASCIZ <15><12>/ / 
041452 66$: 
7292 041452 012703 000003 MOV #3,R3 
041456 012046 4$: MOV (RO) +, (SP) 
7294 041460 104403 TYPOS 
04 1462 .BYTE 6 
1296 04146 1 “BYTE 1 ZNO SUPPRESS 
041464 104401 041472 TYPE 69$ T:TYPE ASCIZ STRING 
7298 041470 BR 68$ S:GET OVER THE ASCIZ 
::69$: .ASCIZ / / 
7300 041502 68s: 
7301 041502 005 DEC R3 
302 041504 001401 BEQ 45$ 
730 1306 000765 BR 4$ 
7304 04151 01 766 041062 45$: MOV CUNIT,-(SP) 
7305 041514 104 TYPDS 
7306 1516 013701 041070 MOV CURTAB,R1 
7308 041522 5$: ;ROUTINE TO MODIFY PARAMETER BLOCK 
a3 041522 104401 041530 TYPE 71$ zi TYPE ASCIZ STRING 
7311 041526 000406 BR 70$ 7:GET OVER THE ASCIZ 
ale -:71$: .ASCIZ <15><12>/DEV.ADR.=/ 
Tele beteee 006737 ms: JSR PC, BS. 
ras 941550 104401 ge318 TYPE 555 
7316 041554 004737 0420 JSR Pc, 7$ 3GET LINE ENABLE BYTE 
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7KMDA.P11 SEQ 0153 
17 941560 104401 041566 TYPE 738 rTYPE ASCIZ STRING 
1 1564 00041 BR 72 "GET OVER THE ASCIZ 
8 sat 45738: eASCIZ /(1)ENABLE(O)DISABLE / 
1 0461614 006737 042252 JSR PC, 10$ 
3 sits 1 134 rere TYPE Seg zz:TYPE ASCIZ STRING 
1624 booete BR 43 :GET OVER THE ASCIZ 
4 ? 55758: eASCIZ <15><12>/(O)EXTERNAL (1) INTERNAL / 
1988 737 04225 JSR PC, 10$ 
1666 152741 0001 BISB #100,-(R1) ZINSERT OTHER CLOCK BIT 
lore 105721 a TSTB ss (R14 [UPDATE POINTER ,TEST FOR ENABLING CRC32 
t3 041674 104401 041702 TYPE 77$ rz:TYPE ASCIZ STRING 
1 0461 BR =*GET OVER THE ASCIZ 
3 et i778: wASCIZ <15><12>/(1) cRCS2 (0) NO CRC32 / 
7 34 133 004737 042252 JSR PC,10$ 
5 041740 105741 TSTB Oss =(R1) sWITH CRC=32 ? 
36 1742 100025 BPL 51$ B= 
7337 041744 105741 TSTB 3s-_- =(R1) :INT LOOP MODE 
7338 041746 100023 BPL 51$ 'B=NO 
7339 041750 104401 041756 TYPE 79$ t:TYPE ASCIZ STRING 
041754 000420 BR 8$ 52067 OVER THE ASCIZ 
341 ania 55798: sASCIZ / (WARNING)NO CRC-32 TESTING/<15><12> 
rk: 042016 012737 177777 041066 51$: MOV #~1, CONFIG 
F348 042024 000137 JMP MODTAB 
7346 
7367 942030 104411 7$ RDLIN 
7348 04 032 005726 TST (SP)+ 
7349 042034 012700 046124 MOV #STTYIN.RO :GET TTY BUFFER 
7350 042040 105710 TSTB ~—s-_ (RO) SANY CHANGE IN STATUS? 
7351 042042 001447 BEQ 110$ :B=NO 
7358 042044 Wert 177777 MOVB = #1, (R11) 
7353 042050 12 710 000101 CMPB ss #'"A (RO) ZTEST FOR ALL LINES 
7354 042054 00144 BEQ 110$ [B=ENABLE ALL LINES 
7355 056 105011 CLRB  —s- (R11) 
73 , 122710 000116 CMPB es #'"N (RO) z1S IT N FOR NO LINES 
735 064 001436 BEQ 110$ :B=YES NO LINES ENABLED 
7358 066 M1208 001202 107$: MOVB (RO)+,$TMPO = DONE? 
7359 0014 3 BEQ 110$ *B=YES 
7360 7% 1 75 000054 001262 CMPB Oss«#54, STMPO [A COMMA 
7361 102 001771 BEQ 107$ ‘B=YES ONLY A SEPERATOR 
104 123727 001202 000060 CMPB ss STP, #60 SONLY O-7°S ARE VALID 
F308 112 2 5 BLT 112$ :B=NOT VALI 
7364 04 114 12 727 001202 000067 CMPB =: $TMPO., #67 [LESS THAN 
7365 122 003021 BGT 112$ ‘B=NOT VALID 
7366 124 1427 7 360 001202 BICB #360.$TMPO ZSAVE ONLY OCTAL DIGIT 
736 132 10 é 7 00120 INCB OST 
7368 1 12 02 MOV #1,R ZINIT MASKING BIT 
9 142 1053 1202 108$: DECB $7 SFIND BIT POSITION OF ENABLED LINE 
7370 04 166 00140 BEO 109$ [B=FOUND IT 
7371 042150 70630 ASLB Re [NEXT LINE BIT 
7372 042152 00137 BNE 108$ 
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C2KMDA.P11 17:03 SEQ 0154 
73 154 04 BR ZINVALID CHR. 
7% 156 1 é 1 109$: BIS8 nae eee) [SET BIT FOUND (THIS LINE ENABLED) 
m3 1 42 BR :TRY AGAIN 
$8 162 005201 1108: INC R1 zMOVE TO NEXT BYTE 
78 164 7 oon RTS PC [DONE 
04 166 104401 042174 TYPE 81$ Z:TYPE ASCIZ STRING 
1 172 000411 BR 0$ :*GET OVER THE ASCIZ 
“ igo’: wASCIZ <15><12>/SYNTAX ERROR/<15><12> 
7384 1 000137 042030 JMP 7$ 
5 0057 6 89$: TST (SP)+ :POP STACK 
7386 4 104401 001234 TYPE  ,$QUES ‘HIGH BYTE NOT =0 
738 104401 001235 TYPE SCRLF 
7388 *$ 
7389 Hed 3 8$: RDOCT 
90 40 012 MOV (SP)+,RO ZCHANGE STATUS? 
91 4 1401 BEQ 9$ :BR=NO 
739 44 010011 MOV RO, (R1) [LOAD DATA 
739 46 005721 9S: TST (Ri)+ 
7394 04 30 000. RTS Pp 
7395 52 104410 10$:  RDCHR 
7396 042254 012600 MOV (SP)+,RO 
7397 042256 12 99 000015 CMPBs«#15..RO :C.R.? 
7398 04 62 00142 BEQ 114$ 
7399 6 110037 041060 MOVB RO, CHRADR 
7400 04 104401 041060 TYPE §,CHRADR 
7401 04 % 1 2700 000060 CMPB 0 s«#60,RO 70? 
740 141 BEQ 
7403 042302 122700 000061 CMPB 3s #61, RO 31? 
7404 04 00140 BEQ 105$ 
7405 042310 104401 042316 TYPE 83$ ri: TYPE ASCIZ STRING 
7406 042314 000401 BR 23 7:GET OVER THE ASCIZ 
740 >:83$: .ASCIZ /2/ 
7408 04 82s: 
7409 0423 Q 754 BR los 
7410 042322 152721 000200 105$: BISB  #200,(R1)+ 
7411 06 000404 BR 11 
7412 042330 142721 000200 11$: BICB #200. (RI) 
741 0423 000401 BR 
7414 04 33 005201 114$: INC Mg 
7415 042340 000207 1158: RTS PC 
741 sAN "A" WAS DETECTED SET REMAINING BLOCKS WITH SUCCESSIVE 
617 [PARAMETERS (BASED) AS LAST BLOCK OPEN "‘CURTAB’’. 
7419 042342 005726 128: TST (SP) 
24 be 344 003700 041070 ae MOV CURTAB RO :GET CURRENT BLOCK 
7428 942359 g1000r mov 0.1 : 
7424 3 197 £2588 13$: CMP R1.AKMCTBE yAT END? 
rise eth Boy tdODs (Rt) ‘CET NEW D.A 
59 366 21 000010 ADD HO tat 
7428 3 12021 MOV #10.(R tae ;SAME LINES + UNIT ENABLE BIT 
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3 
2S 






7% gree 12081 MOV (RO) +, (R1)¢ :SAME E/1 BIT 

7% 7 109 7 041070 MOV RO CURTAB 

zs 1 4 65 BR 13 

7% 0 404 137 041134 14$: JMP MOD TAB 

7% 41 15$: 0 

7435 41 4514 04251 24123 120$:  .ASCIZ !LINES(O-7)(1.E..4,4,4) OR (A)=ALL(N)=NONE ! 

7% 420 02 646 44 Q 

7% 4 04 4 0 7056 02 

7438 0424 3604 644 440 

7439 04 4ae 940450 036451 

7440 45 1 026114 024516 

7641 042456 075 047117 02010 

7442 042464 

744 EVEN 

Tab 

wiz 7KMC11 PARAMETER BLOCKS 

7467 042466 KMCTAB: 

7468 :PARAMETER BLOCK FOR KMC#01 

7449 042466 000000 KMCR RO1: 0 sCONTROL + gt hog Le + Paayt 

7450 042470 000000 KMCPO1: 0 ‘LO BYTE = LINES ENABL (BIT = LINE: + 7 = LINE 7) - BIT 15 
et 042472 000000 pad ott rin aoc’ oe yh a" 00, tty, Sieve E ERCS2ENABLED 0 = NOT 

7453 042474 000000 imcROos : 0 :CONTROL + STATUS REGISTER FOR, KAcT1 #02 

74 042476 000000 KMCPO2: 0 [LO BYTE = LINES ENABLED (BIT 0 = LINE 0 + 7 = LINE 7) - BIT 15 
7455 500 000000 KMCSO2: 0 :LO BYTE INT.=300,EXT=100/ HIBYTE =CRC3ZENABLED 0 = NCT 
ries 042562 ine RO. ETER a sEOWTAOL STATUS, REGISTER FOR Kaci #03 

7458 042504 itt KACPOS: 0 [LO BYTE = ubings NABLED (BIT 0 = LINE 0 + 7 = LINE 7) - set 15 
7459 042506 000000 KACSOS: Ai nil :L0 O BYTE At 00.EXT=100/ HIBYTE SOUSCRCSZENABLED 0 = 

7461 042510 000000 KMCROG: 0 SCONTROL + STATUS REGISTER FOR ommen 

abe 042512 000000 KMCP04: 0 :L0 BYTE = LINES E NABLED (BIT 7 = LINE 7) = BIT 15 
7463 042514 000000 KMCS04: 0 [LO BYTE Ait 00, EXT=100/ Alevre = NE 9 $0 ,c,LN 0 = NOT 

7464 ;PARAMETER BLOCK FOR KMC#05S 

7465 042516 000000 KMCROS: 0: ;CONTROL + STATUS REGISTER FOR nme 1 f3 

7466 042520 000000 KMCPOS: 0 LO BYTE = LINES ENABLED (81 = LINE = LINE 7) - seit T 15 
467 042522 000000 KMCSO5: 0, ito, BYTE iat. =300, OKT E1007 Alevte Boe ckcSoenaaten 0= 

7469 042524 000000 imchoe . : CONTROL + STATUS REGISTER FOR, Kaci 1406 

7470 04 526 000000 KMCP06: 0 BYTE = LINES NABLED (BIT = LINE LINE 7) - BIT 15 
7471 042530 000000 KMCS06: 0 to BYTE “t= 00, EXT=100/ Atevte Ae Re soe ENABLED 0 = NOT 

oR 042532 000000 imcrore Pp sEONTROL » + STATUS REGISTER, FOR rnc 

747% 049534 000000 RACE DS: 0 BYTE = LINES ENABL Le = LINE 7) - BIT 15 
7475 042536 000000 KMCSO7: 0 tO BYTE INT.=300, Pre ibos” Atevre E ercé2e ENABLED 0 = NOT 
mrs 042540 000000 ‘PA CRO ETER BLOCK “FOR ene stars, REGISTER, FOR oumcn 

7478 eras 000000 KACPOB: 0 [LO BYTE = LINES ENABL = LINE ® LINE 7) - BIT 15 
479 042544 000000 KACSOB: | eye iLO, BYT VIE INT. 00, EXT= bor Atevte E Rca ENABLED 0 = NOT 

7481 042546 000000 KMCRO9: : CONTROL + STATUS REGISTER FOR gmc 

748 04 550 000000 : 0 BYTE = LINES ENABL (BIT = LINE 8 = LINE 7) - BIT 
748 552 000000 Ke tp BYTE nT. 00. EXT= ‘bos Atavte g RCSQENABLEN 0 = NOT 


CS09: 
7484 ;PARAMETER BLOCK FOR KMC# 
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CZ2KMDA.P11 SEQ 0156 

7485 $1335 £00088 matt : CONTROL ‘ STATUS eREGISTER FO FOR gnc a epee, oe 
3 3 = - 

pes 338 KMCS10: [LO BYTE mt ms M0 txts EXT=100/ Atevte Wits 0 = NOT 

es 562 000000 immo sCOnTROL + STATUS REGISTER FOR nner 

7490 Beg5e4 KMCP11: ‘LO BYTE = (BIT 7 = LINE 7) = BIT 15 

7491 566 iit KMCS11: iLO BYTE INT MSOC txte ty, Atevre = INE 9 $7 2.LN 0 = NOT 

749, ;PARAMETER BLOCK FOR KMC#1 

rise Qia87e Sone Aeris: 8 HEBUNOE  SawiSetaGlen tolO*O™ d's « 7 «tne 72 = 11 15 
: 3 = = bead 

7495 574 000000 KMCS1 *LO BYTE INT. Fee dO ENTE at ae A tevre chine 9 7, LIM 0 = NOT 

op ZPARARETER BLOCK’ FOR KMC#13 

rt36 ee th tit RMR 3. tO OrTE si : oINES ENASLED. (BIT Ov rete: 4 + 7 = LINE 7) = BIT 15 

= } = 

7499 042602 000000 KMCS13: : 6 ‘LO BYTE INT. Fedo Ente EXT=100/ HIBYTE BoeckcSotnasten 0 = NOT 

7500 ; PARAMETER BLOCK FOR KMCA14 

7501 042604 000000 KMCRI4: 0 : CONTROL + STATUS REGISTER FOR gnc i 

750, 2606 000000  KMCP14: 0 0 BYTE = $ ENABLED (BIT 0 = LINE + 7 = LINE 7) - soe 15 

7503 042610 000000 KMCS14: 0 to BYTE INT. =300,EXT=100/ HIBYTE Ae RcSocnaatee 0= 

7504 sPARAMETER BLOCK FOR KMC#15 

7505 042612 000000 KMCR15: 0 :CONTROL + STATUS REGISTER FOR nme a 

7306 042614 000000 KMCP15: C [LO BYTE = LINES ENABL NABLED (BIT = LINE = LINE 7) - ett 15 

7507 042616 000000 KMCS15: 0 ‘LO BYTE INT.=300,EXT=100/ ATavte Boe ckcSoenaaten 0= 

7508 mak BLOCK FOR KMC#16 

7509 042620 000000 CR16: 0 :CONTROL + STATUS REGISTER FOR Kaci #16 

7510 042622 000000 KMCP IO; 0 3LO BYTE = LINES ENABLED (BIT 0 = LINE 0 + 7 = LINE 7) = BIT 15 

rit 042624 000000 KMCS16: 0 3LO BYTE INT.=300,EXT=100/ HIBYTE BOSCRCSZENABLED 0 = NOT 

7313 042626 000000 KMCTBE: 0 

7515 ty ROUTINE wit LOAD THE CSR ADDRESS INTO ‘R4** THE - 

ed ENABLE BYT E INTO “LINBYT* - EXT./INT. STATUS INTO ‘‘CLKDAT 

751 Ait C32 ENABLE INTO ''CRC32F' 

7518 042630 013701 041070 GETKMC: MOV CURTAB,21 3GET CURRENT TABLE POINTER 

7519 042634 062701 000006 1$: ADD #6, 

7520 042640 020127 042626 CMP R1.AKMCS16+2 :@ END OF TABLE? 

7521 042664 1004 BNE $ = 

7522 04 012737 042460 041070- MOV #KMCTAB~6, CURTAB’ 

7523 042654 900207 RTS C 

7524 04265¢ 005761 000002 2s: TST e(Rt) y ENABLED? 

7525 042 100 BPL 1$ :BR= 

1306 042664 010137 041070 - MOV R1,CURTAB ‘NOW POINTING TO CURRENT KMC 

7527 0426 012104 MOV (R1)+,R4 [GETKMC CSRO 

0308 o 672 iit : 001254 move (R1), ,LINBYT 3GET LINES ENABLED 

365 00 0037$) 001360 MOVB (R1)s CLKDAT ;LOAD CLOCK LOOP STATUS 

7531 042704 005037 001256 CLR CRC32F *CLEAR RES FLA AG 

75 04271 105711  - $78 ~—s¢r') *CRC32 E 

753 71 100007 BRL 26$ *B=NO 

7534 04 714 132737 000200 001260 BITB #200,CLKDAT SEXT? 

7535 722 901003 BNE 26$ [B=NO 

038 i 724 012737 000200 001256 aa MOV #200, CRC32F TENABLE CRC32 FOR TESTING 

7538 73 91270 MOV 

7539 04 136 137 ) MOV ~ elatte RO zFIND UNIT# 

7540 042742 1627 12066 SUB #KMCTAB,RO 


° 
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CZKMDA.P11 
T3t] 42746 901405 » @ @ | 
FReg 825585 903505 ano. SUB JRO 
7546 75 001401 BEQ 4 
7545 760 0007 ; BR 3$ 
7546 7 010¢5 1246 4$: MOV R2,$DVICE ZCURRENT UNIT # 

7547 04 766 12737 1 001252 MOV #1 .NXTLIN [SET SWITCH FOR NEXT LINE TO BE TESTED 
7548 042774 062716 000002 ADD #2. (SP) 

7549 06 000207 RTS C 

7550 ;THIS ROUTINE WILL OBTAIN THE | NEXT SEQUENTIAL LINE 

7991 [CIF ENABLED) FROM LOCTION 'NXTLIN:*’ (PRESENT BY GETKMC) 
7553 043002 005037 001244 GETLIN: CLR CLINED ;INIT. FORMATED LINE # 

7554 04 105737 001252 1$: TSTB = NXTLIN ;DONE THIS UNIT? 

7555 043012 001437 BEQ :B=YE 

7556 043014 053737 001252 001254 BIT NXTLIN,LINBYT :1S THIS LINE ENABLED? 

7557 043022 001 BNE :B=YES 

7558 043024 006337 001252 ASL NXTLIN [TRY FOR NEXT LINE 

7559 043030 000766 BR 1$ 

7560 043032 012700 000001 2s: MOV #1.RO0 :FIND UNIT 

7561 04 3 030037 001252 21$: BIT RO.NXTLIN TSCALE FOR CINE 4 

1362 04304 901004 BNE 22$ 30N TH HIS LINE? 

7563 043044 005257 001244 INC CLINED ONE LINE 

7564 043050 ASL RO SALLIGN BIT TO TRY AGAIN 

7565 043052 771 BR 218 TRY NE 

7566 043054 013737 001244 001242 228: MOV CLINED, CLINE ZOBTAIN REG. FORMAT 

7567 043062 337 001242 ASL CLINE LEFT 

7568 043066 006337 001242 ASL CLINE 

7569 043072 006337 001242 ASL CLINE 

7570 043076 006337 001242 ASL CLINE 

7571 043102 006337 00125 ASL NXTLIN ;SET NXTLIN FOR NEXT TIME IN 
7572 043106 062716 000002 ADD #2, (SP) 

7373 043112 000207 3S: RTS PC 

1375 .SBTTL ERROR HANDLER ROUTINE 

7577 SAAAAAEAARAREEARAERERAEEEREREEERAERAERRERRERRERERRAERERREREEERERERRERE 
7578 SSTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
7579 :*SAVE THE ERROR ITEM NUABER AND THE ADDRESS OF THE ERROR CALL 
7580 [*AND GO TO SERRTYP ON ERR 

7981 isTHE SWITCH OPT 1ONs PROVIDED BY THIS ROUTINE ARE: 

7583 2 eSW13=1 INHIBIT ERROR TYPEOUTS 

7584 *SW10=1 BELL ON ERROR 

7585 :*SWw09=1 LOOP GN ERROR 

7586 >*CALL 

387 ie ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
7589 043114 SERROR: 

7590 043114 106407 CKSWR sr TEST FOR CHANGE IN SOFT~SUR 
7591 043116 105237 001103 7$: INCB  — SERFLG :33eT THE ERROR FLAG 

7592 043122 001775 BEO 7$ ON'T LET THE FLAG GO TO ZERO 
759 045124 013777 001102 136010 MOV $TSTNM, @DISPLAY +O USPLAY TEST NUMBER AND ERROR FLAG 
7594 0451 2 032777 002000 136000 BIT #B1T10.aSwR SIBELL ON ERROR? 

7595 043140 001402 BEQ 1$ ::NO ~ SKIP 

7596 0463142 104401 001230 TYPE  ,$BELL RING BELL 


SN ceoeSe ——— 
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7597 0431 ‘pea 1112 1$: INC SERTTL COUNT THE NUMBER OF ERRORS 

98 04 15 116 7 16 MOV (SP) , SERRPC tIGET ADDRESS OF ERROR INSTRUCTION 
7599 1 162 7 001116 SUB 
7600 04 164 117737 135726 001114 MOVB ERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
7601 043172 032777 02 135740 BIT #B1T13,aSwR z3SKI8 TYPEOUT IF SET 
7602 06 001055 BNE TYPE 
7603 043202 021627 001002 CMP (SP) #1002 T:1F RETURN PC LESS THAN 1002 
7604 043206 101046 BHI 12$ ERROR IS ILLEGAL TRAP 
7605 zzPROCESS UNEXPECTED TRAP OR inten 
7606 043210 016637 000004 001116 MOV 4(SP) SERRPC GET Toe AT TIME OF FALSE TRAP 
7607 063216 162737 909008 001116 SUB We SERRPC 3: UST PC 
7608 043224 104401 04327 TYPE $ S:TYPE HEADER 
7609 0432 013746 001116 MOV SERRPC, (SP) 7: SAVE SEAREC FOR TYPEOUT 
7610 043234 10440 TYPOC 7:60 TYPE--OCTAL ASCII(ALL DIGITS) 
7611 043236 104401 043276 TYPE ,11$ 
7612 043242 162716 000004 SUB #4, (SP) z:GET FALSE TRAP VECTOR ADDR 
7613 043246 01165 001116 MOV (SP) , SERRPC 
7614 043252 013746 001116 MOV SERRPC,-(SP)  : SAVE SERRPC FOR TYPEOUT 

043256 104402 TyPOC sonal 1:60 TYPE=-OCTAL ASCII(ALL DIGITS) 
cop {SP)+, ,(SP)+ z:POP FALSE TRAP VECTOR PC&ADDR 
040 10$:  .ASCIZ <200>"PC= ' 
054105 11$: | .ASCIZ ° UNEXPECTED TRAP TO ° 








020120 
ah EVEN 
" «JSR PC, SERRTYP 2:60 TO USER ERROR ROUTINE 
TYPE  ,$CRLF 
208: 
2$: TST aswR ZHALT ON ERR 
BPL 3$ 33SKIP IF CONTINUE 
HALT SHALT ON ERROR 
CKSWR iSTEST FOR CRANGE IN SOFT=SwWR 
135564 3$: 61 #81709, 4SuR ::LOOP_ON ERROR SWITCH SET? 
MOV SLPERR, (SP) :ZFUDGE RETURN FOR LOOPING 
4$: TST SESCAPE i 3 CHECK FOR AN ESCAPE ADDRESS 
BEQ 5$ = SBR IF NONE 
be MOV SESCAPE,(SP) | ::FUDGE RETURN ADDRESS FOR ESCAPE 
000042 CMP WSENDAD,@#42 =: sACT=11 AUTO-ACCEPT? 
BNE 6$ BRANCH IF NO 





HALT 22 YES 


6$: 
RTI RETURN 
.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


Iii iii tii ii iti iri ri iiiititiiiitiit itty 

THIS ROUTINE USES THE ““ITEM CONTROL BYTE*’ (sires) To A ay WHICH 
:*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERR as" (SERRTB), 
7*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR 


SERRTYP: 
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7653 043410 104401 
fs Bae Sees 
ie Ree se 
7657 043424 001004 
7658 
7659 043426 013746 
7660 
7661 0434 losers 
7066 04 00044 
7663 04 005300 
7664 043440 006300 
fe ES Ss 
ee? 04 062700 
7668 043452 012037 
7669 043456 001404 
7670 043460 104401 
7671 043462 000000 
767 oo eroe 104401 
7673 043470 012037 
7674 043474 001404 
7675 043476 104401 
7676 043500 000000 
7677 043502 104401 
7678 043506 010146 
7679 043510 012001 
7680 043512 001415 
7681 043514 012000 
7682 043516 105720 
7683 043520 001003 
7684 Oeeese 013146 
7685 043524 104402 
7686 et 000402 
7687 0435 
7688 043530 013146 
7689 043532 104405 
7690 043534 005711 
7691 043556 001403 
7692 043540 104401 
ren7 043544 000764 
7695 043546 012601 
7696 043550 012600 
7697 043552 104401 
7698 043556 000207 
7699 043560 020040 
7700 043564 
7701 
770, 

770 

7704 
7705 
7706 
7707 
7708 


001235 
001114 


001116 


043560 


001235 
000 


1$: 


2$: 
3$: 


4$: 
5$: 


6$: 


7$: 


9$: 
10$: 


11$: 


TYPE 


TYPE 


R 
eASCIZ 


SCRLF 
RO, -(SP) 


R 
@4SITEMB RO 
1$ 


SERRPC ,-(SP) 


ASERRTB,RO 


0 

-SCRLF 
(RO)+, 4$ 
5$ 


0 

»SCRLF 
R1,-(SP) 
(RO)+,R1 
(RO) +,RO 
(RO) + 

7$ 
a(R1)+,-(SP) 
8$ 
@(R1)+,-(SP) 
(R1) 


u* 


(SP)+,R1 
yay RO 


ssc CRLF 
a] 


EV N 
-SBTTL SCOPE HANDLER ROUTINE 


js “CARRIAGE RETURN’ & “LINE FEED" 
S:PICKUP THE ITEM INDEX 

i1F ITEM NUMBER 1S ZERO, JUST 
SITYPE THE PC OF THE ERROR 

ee DRES 

3360 T TPE -OETAL ASCIICALL DIGITS) 
3 SADJUST THE INDEX SO THAT IT WILL 
i: WORK FOR THE ERROR TABLE 


as FORM TABLE POINTER 
a: MESSAGE** POINTER 


PEOUT 
TITYPE THE DATA, HEADER” 

:3,DATA HEADER” POINTER GOES HERE 
3 RETURN’ & “LINE FEED™ 


ECIMAL 
SISAVE @(R1)+ FOR TYPEOUT 
22G0 TYPE--OCTAL ASCII(ALL DIGITS) 


fh @(R1)+ FOR TYPEOUT 
2390 TYPE--DECIMAL ASCII WITH SIGN 
THERE ANOTHER NUMBER? 


NO 
: TYPE TWO(2) SPACES 
; ;LOOP 


Z:RESTORE R1 
: RESTORE RO 

CARRIAGE RETURN’ & “LINE FEED" 
7:TWO(2) SPACES 


FRRAAAAAEAAAEEAEERERAEEREREAAAERAERAAAAEAAARAEAREARARERREREREEREREEEEE 


S8THIS OAD THE Conn S THE LOOPING OF 


2*AND LOAD T. 


;*AND LOAD THE E ROR 
; *THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
3*SW14=1 LOOP ON TEST 


SUBTESTS. mi WILL INCREMENT 
et he - (DISPLAY<7:0>) 


SEQ 0159 
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CZKMDA.P11 20-OCT-81 17:03 OPE HANDLER ROU SEQ 0160 
7709 :*$w09=1 LOOP ON ERROR 
7710 :*Sw08=1 LOOP ON TEST IN SWR<7:0> 
7711 *CALL 
v1 ie SCOPE 7: SCOPE=10T 
7714 043564 SSCOPE: 
7715 043564 104407 CKSWR ::TEST FOR CHANGE IN SOFT-SwWR 
7716 ::G0 TO ERROR ROUTINE IF RETURN PC LESS THAN 1002 
7717 S OTHERWISE CONTINUE 
7718 043566 021627 001002 CMP (SP) ,#1002 ;sUNEXPECTED TRAP OR INTERRRUPT 
7719 043572 10100 BHI 1$ ARE TRAPPED HERE V VIA IOT 
7720 043576 137 063114 JMP SERROR £:G0 PROCESS S_UNEXPECTED 
7721 043600 032777 040000 135332 1$: BIT #81714, aSUR LOOP ON PRESENT TEST 
ree 043606 001057 BNE SOVER YES IF Swi4=1 
772 sWHHMMSTART OF CODE FOR THE XOR TESTERS#sEs : 
7724 043610 000416 $xTSTR: BR 65 ii1F RUNING ON THE OR’ TESTER CHANGE 
7725 THIS INSTRUCTION TO A "NOP’’ (NOP=240) 
7726 043612 013746 000004 MOV QFERRVEC v(sP) tISAVE THE CONTENTS OF THE ERROR VECTOR 
7727 043616 012737 043636 000004 MOV $aFERAVEC 33SET FOR TIMEOUT 
7728 04 3624 005737 177060 TST ote 060 :TIME OUT ON XOR? 
7729 043630 012637 000004 MOV (SP) +, a#ERRVEC : SRESTORE THE ERROR VECTOR 
7730 043634 31 BR SSVLAD 33 THE NEXT TEST 
7731 043636 022626 5$: CMP (SP) +, (SP) ‘OrEAR THE STACK AFTER A TIME OUT 
7732 043640 012637 000004 MOV (SP) + @PERRVEC 3 SRESTORE THE ERROR VECTOR 
7733 043644 000417 BR “LOOP ON THE PRESENT TEST 
7734 043646 6$::#AAAKEND OF CODE FOR THE XOR’ TESTERSAAAS 
7735 043646 032777 000400 135264 BIT 1T08,aSwR ::LOOP ON SPEC. TEST? 
7736 043654 001404 BEQ 7:BR IF 
7737 043656 127737 135256 001102 CMPB ss @SWR, STSTNM 330N THE peicHT TEST? SWR<7:0> 
7738 043664 001430 BEQ SOVER 7:BR IF Y 
7739 04 105737 001103 2$: TSTB = SERFLG 3 ZHAS AN ERROR OCCURRED? 
7740 043672 00141 BEQ $SVLAD BR IF NO 
7741 043674 032777 001000 135236 BIT #81T09,aSwR 3s LOOP ON ERROR? 
7742 043702 001404 BEQ :BR IF NO 
7743 043704 013737 001110 001106 7S: MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
7744 043712 000415 BR SOVER 
7745 043714 105037 001103 4$: CLRB = SERFLG 22 7ZERO THE ERROR F 
7746 043720 105237 001102 SSVLAD: INCB $TSTNM :: COUNT S 
7747 043726 011637 001106 MOV (SP) , SLPADR S:SAVE $ (OPE LOOP ADDRESS 
7748 043730 011637 001110 MOV )°SLPERR T:SAVE ERROR LOOP ADDRESS 
7749 043734 005037 001226 CLR sc 3CLEAR THE ESCAPE FROM ERROR ADDRESS 
7750 043740 Me73? 000001 001115 MOVB #1, SERMA ZONLY ALLOW ONE(1) ERROR ON NEXT TEST 
7751 043746 013777 001102 135166 S$OVER: MOV STSTNM, aDISPLAY i DISPLAY TEST NUMBER 
7752 043754 013716 001106 MOV SLPADR. (SP) [:FUDGE RETURN ADDRESS 
7753 043760 2 RTI SIFIXES PS 
773 .SBTTL TYPE ROUTINE 
7756 g ° FRAARAAAAAAEAEARERARERAEREREEREREAEREAARARAAREEAAARAERAEEEARAERERERERE 
7757 [*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE | WITH AO BiTE. 
7758 7*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
7759 S*NOTE1: SNULL CONTAINS THE CHARACTER. 10 BE USED AS THE FILLER CHARACTER. 
7760 + *NOTE2: SFILLS CONTAINS THE NUMBER OF FILL LEER CHARACTERS REQUIRED. 
7761 ; *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
776 


[*CALL: 
7764 '*1) USING A TRAP INSTRUCTION 


F 13 
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7765 3* TYPE §,MESADR ZzMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
A :*0R = 
776 ie TYPE 
7768 :f MESADR 
7769 8 
aa if ° 0 762 105737 001157 $TYPE: TSTB  $TPFLG 3318 THERE A TERMINAL? 
766 100002 BPL 1$ 
ae: 043770 000000 HALT tIHALT HERE IF NO TERMINAL 
7774 043772 000407 BR 4 : LEAVE 
7775 774 910046 1$: MOV RO,-(SP) 7 SAVE RO 
777, 776 017600 000002 MOV @2(SP) RO S:GET ADDRESS OF ASCIZ § TRING 
pore 11204 2s: MOVB (RO)+,-(SP) PUSH CHARACTER TO BE FyPED ONTO STACK 
7778 004 00100 BNE 4$ IF IT ISN'T THE TERMINA 
7779 944006 5726 TST (SP)+ SHI TERMINATOR POP IT OFF THE STACK 
7780 910 012600 60$: MOV (SP)+,RO TORE RO 
7781 044012 062716 000002 3$: ADD #2, (SP) T:ADJUST RETURN PC 
7782 044016 000002 RTI + :RETURN 
7783 044020 122716 000011 4$: CMPB Os HT, (SP) ::BRANCH IF <HT> 
7784 044024 001430 BEQ 
7785 044026 122716 000200 C #CRLF , (SP) ::BRANCH IF NOT <CRLF> 
7786 044032 001006 5% 
7787 044034 005726 TST (SP) + :zPOP <CR><LF> couty 
7788 036 104401 t: TYPE A CR AND L 
7789 044040 001235 SCRLF 
7790 044042 105037 044250 CLRB  §$CHARCNT 3 CLEAR CHARACTER COUNT 
7791 044046 000755 BR 2$ 7:GET NEXT CHARAC 
7792 044050 004737 044132 5$: JSR PC ,STYPEC 2:60 TYPE THIS CHARACTER 
7793 044054 123726 001156 6$: CMPB so SFILLC,(SP)* 31S IT TIME FOR FILLER CHARS.? 
7794 044060 001350 BNE ::1F NO GO GET NEXT CHAR. 
7795 044062 013746 001154 MOV SNULL ,-(SP) [:GET # OF FILLER CHARS. NEEDED 
77% AND THE NULL C 
7797 044066 105366 000001 7$: DECB =s-«1( SP) 7:DOES A NULL NEED TO BE TYPED? 
7798 044072 002770 BLT 3:8R IF NO-~60 POP THE NULL OFF OF STACK 
7799 044074 006737 044132 JSR PC, STYPEC 3:60 TYPE A NULL 
7800 044100 105337 044250 DECB $CHARCNT ::D0 NOT COUNT AS A COUNT 
7301 044104 000770 BR 7$ i: 
708 ZHORIZONTAL TAB PROCESSOR 
70 50S 044106 112716 000040 8$: MOVB i REPLACE TAB WITH SPACE 
7806 044112 004737 044132 9$: JSR giles zTYPE A SPACE 
7807 044116 132737 000007 044250 BITB SCHARCNT [BRANCH IF NOT AT 
7808 0441 4 001372 BNE :TAB STOP 
7809 044126 005726 TST ?$p)+ : POP SPACE OFF STACK 
7810 044130 000724 ene BR 2s ::GET NEXT CHARACTER 
Ble 044132 105777 135006 TSTB = a@STKS 33CHAR IN KYBD BUFFER? :MJ0001 
7813 044136 10092 7:BR IF NOT [M0001 
7814 044140 017746 135002 MOV a$TKB,-(SP) [GET CHAR :MJD001 
7815 044144 046716 177600 BIC #177600, (SP) + STRIP EXTRANEOUS BITS :MJD001 
7816 044150 122716 00002 CMPB Os WSXOFF, (SP) ::WAS CHAR XOFF 740001 
817 044154 00101 dies BNE 102$ 7:BR IF NOT A001 
7819 044156 105777 134762 TSTB = @STKS z:WAIT FOR CHAR :MJ0001 
7820 044162 100375 BPL 101$ :MJD001 


a5 


3333333333333333335 


Rorononorfonens 


NOSERSRSROWO 


g 
™ 


3333333333; 
¥ 


SONSSSNNSSy 
ro 
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Y1 
17:03 SEQ 0162 
134756 MOVE a$TKB, (SP) z:GET CHAR :MJ0001 
177600 BIC #177600 (SP) ziSTRIP IT :MJD001 
21 C , (SP) z:WAS IT XON? 7MJ0001 
BNE 1O1s” 378R IF NOT 7430001 
1028: :MJ0001 
TST (SP)+ rcF IX STACK :MJ0001 
10S: :M0001 
134740 TSTB =s_ @STPS z:WAIT UNTIL PRINTER IS READY 
BPL 10$ :m0001 
000002 134732 MOVB  2(SP),a$TPB zzLOAD CHAR TO BE TYPED INTO DATA REG. 
000015 000002 CMB #cR.2(SP) 3218 CHARACTER A CARRIAGE RETURN? 
044250 CLRB SCHARCNT i ZYES--CLEAR CHARACTER COUNT 
000012 000002 1S: CMPB sO, 2( SP) t:1S CHARACTER A LINE FEED? 
BEQ STYPEX 3 BRANCH IF YES 
INCB ss (PC) + T THE CHARACTER 
SCHARCNT:.WORD 0 : CHARACTER COUNT STORAGE 


STYPEX: RTS PC 
-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


Ff RARAAAARAAAAARARAAAREREREEAEAEEAAARAAREARAERAERAAERAERAAAERERRREEEEEE 


z*THIS ROUTINE IS USED pF — A 16-B1T BINARY NUMBER TO A 6-DIGIT 


[*OCTAL (ASCII) NUMBER TYPE IT. 

iss ee HERE 10's SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
:* MOV NUM, -(SP) 7 NUMBER TO BE TYPED 

3 TYPOS TI CALL FOR tage 

3* -BYTE N 3:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

3* -BYTE ::M=1 OR O 

3* 321=TYPE LEADING ZEROS 

:* 320=SUPPRESS LEADING ZEROS 


2 *STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
;s$1YPOS OR $TYPOC 


* MOV NUM, -(SP) : NUMBER TO BE TYPED 
om TYPON 7:CALL FOR TYPEOUT 
i #$TYPOC~--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
i* «MOV NUM, = (SP) ::NUMBER TO BE TYPED 
3* TYPOC 3:CALL FOR TYPEOQUT 
STYPOS: MOV a(SP) ,-(SP) ::PICKUP THE MODE 
000001 044477 MOVE © 1(SP);SOFILL 3 3LOAD ZERO FILL SWITCH 
044501 MOVB (SP)+-$OMODE+1 ::NUMBER OF DIGITS TO TYPE 
000002 ADD 2. (SP) ADJUST RETURN ADDRESS 
1 044477 $TYPOC: MOVB 4#1,$0FILL s3$6T THE ZERO FILL SWITCH 
044501 MOVB #6, SOMODE +1 [:SET FOR SIX(6) DIGITS 
000005 044476 S$TYPON: nove #3. SOCNT TISET THE ITERATION COUNT 


MOV Re. = ($8) 3 SAVE Re 
MOV R5.-(SP) SISAVE RS 


CZKMDAO peer 
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SEA SEESSENESS F 


: 


A aret 


113704 


ey 
—— 
SF 

ARIEL 


Sereeeses 


SSSSFso 
FYSVSAESTES 

SSSSS24SS5S59 
WEP NWA 


ooo 
=U 
TESUGA 
yuswsd 
ANN == Ne 


saaoSsse 
SSSF38 


012616 
00000 
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1 17:03 BINARY TO OCTAL (ASCII) AND TYPE 


044501 


ter? 
000012 


044500 
177770 


000002 000004 


MOVB SOMODE+1,R4 
NEG R4 
ADD #6.R4 
MOVB $OFILL,R4 
MOV 12(SP).R5 
CLR R 

1$: ROL R5 
BR 28 

2$: ROL RS 
ROL RS 
ROL R5 
MOV R5,R3 

3$: ROL R3 
DECB  §SOMODE 
BPL 7$ 
BIC #177770,R3 
BNE 4$ 
TST R4 
BEQ 5$ 

4$: INC RG 
BIS #°0,R3 

5$: BIS # (RB 
MOVB = R3, 8S 
TYPE nt 

7$: DECB =s« SOCCNT 
BGT 2$ 
BLT 6$ 
INC RG 
BR 2$ 

6$: MOV (SP)+,R5 
MOV (SP)+_RG 
MOV (SP) +.R3 
MOV 2(SP).4(SP) 
MOV (SP)+, (SP) 
RTI 

8$: BYTE 0O 
BYTE 0 

SOCNT: BYTE 0 

SOFILL: :BYTE 0 

SOMOD 0 


PAGE i 


33GET THE NUMBER OF DIGITS TO TYPE 
at ae IT FOR MAX. ALLOWED 
VE _IT FOR USE 
33GET THE ZERO FILL SWITCH 
UP THE INPUT NUMBER 


CLEAR THE OUTPUT WORD 
SEROTATE MSB INTO *'C’’ 


260 DO MSB 
77FORM THIS DIGIT 


32GET LSB OF THIS DIGIT 
fi hg Ry DIGIT? 


itr IF Yes. 0? 
3DON*T SUPPRESS ANYMORE 0'S 
SIMAKE THIS DIGIT ASCII 
E eet IF NOT ALREADY 
ZzSAVE FOR TY 
3360 TYPE THIS DIGIT 
: COUN 
3 38R 4 MORE TO DO 
F DONE 


3; INSURE LAST DIGIT ISNT A BLANK 
2260 DO a Fl DIGIT 


R3 
SISET THE STACK FOR RETURNING 


sRETURN 
: STORAGE FOR ASCII DIGIT 
23 TERMINATOR “COUNTER ROUTINE 


: .WORD 2 NUMBE 
-SBTTL CONVERT BINARY TO DECIMAL’ AND TYPE. ROUTI 


FRAAAAAAAAAAAAAAARAREREEERAEEERERAERAEAEREEREREREEAAEERERRAEREREREEE 


:ATHIS ROUTINE IS at? TO CHANGE A err BINARY NUMBER TO A 5-DIGIT 
3 *SIGNED De pee rie AND T 


3 MOV 
3* TYPDS 
STYPDS: 
MOV 
MOV 


SCI) 


NUMBER R_THE 
TIVE OR NEGATIVE A_ SPACE OR A MINUS SIGN WILL BE TYPED 
i aBEF ORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
z #REPLACED WITH SPACES. 


NUM, = (SP) 


RO,-(SP) 
R1,~(SP) 


YPE IT. DEPENDING ON WHETHE 


:PUT_THE BINARY NUMBER ON THE STACK 


:i60 TO THE ROUTINE 


33PUSH RO ON STACK 
33PUSH R1 ON STACK 


SEQ 0163 


aon 
nN 


aR 


FELFELEPEPTELESESELELE 


cree 

Wn 
SON 
eM 


w 


ZEsERERAEIESS 


SIIIIIIIIZ 
3 SEEEERERERS: 


gageneees 





v 
“3 
— 
— 
$ 
t 
(7) 
“~ 
—> 


SEERSSNES SESS ROE NSS 


Be 


3 
oo: 


Mmooo 


Bs 


ad ed ed ds 


005702 


338 
Ww 
o 
NO 


Baceees 
Ww — 
SS=S>833NS 


-—S 
ees bed bend 
pe phen 
So 


io SS 
= nN 
=] 35 
wom 
oosnw 
MMO 


v1 
1 9503 


-m— 
= 


000001 
000060 
000040 


000010 


177777 


044716 
000002 


000001 


177777 


177776 


000004 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


7$: 


8$: 


SDTBL: 


o@ (SP) 
: += (SP) 


R3 
(RS) 


(SP) + 


SDBLK 
3(SP) ,4(SP) 
(SP)+; (SP) 


SDBLK: .BLKw 4 
-SBTTL TTY INPUT ROUTINE 


33PUSH R2 ON Lh 
33PUSH RS ON STACK 
3 3PUSH RS ON STACK 
33SET BLANK SWITCH AND SIGN 
—™ 


ee THE INPUT 
33SR If INPUT I 
3sMAKE THE BI R POS. 


ee T 

2sSETUP THE OUTPUT POINTER 

; T CHARACTER TO A BLANK 
CD NUMBER 


3 CONSTANT 
$3 Pon has BCD DIGIT 
TEINCREASE THE BCD DIGIT BY 1 


33ADD BACK THE CONSTANT 
2 CHECK IF eCD DIGIT=0 
3f THROUGH 


IF 0 
:iSTILt = LEADING 0°S? 


IF NO 
$:VES==SET THE SIGN 
ae MAKE THE BCD DIGIT ASCII 

IT A SPACE_IF NOT ALREADY A DIGIT 

3:PUT THIS amen le IN THE OUTPUT BUFFER 
22JUST INCREMENTING 
scan THE TABLE INDEX 
2360 DO THE NEXT DIGIT 

TO EXIT 


22GET THE LSD 
GO CHANGE TO ASCII 
3 sWAS Pe LSD THE FIRST NON-ZERO? 


IYES@-SET THE SIGN FOR TYPING 
NATOR 


23 TYPE 
s2ADJUST THE STACK 
7 RETURN TO USER 


FE ERAAAAAAAARAAAAEAREREEEAEEAEEEAAAAERAAAAAAARAAAARAAAAERAEREEREREEEE 


~ ENABL 





SEQ 0164 





aay Fs 


peg aueeecceensgusenenttyy 


Ss 
SWN= 


So 


SERS 


RRRRRRR KRRRRRRRKREKRLKKK 


=~ 
~ 


13 
1 seatthietead ire ie 21 PAGE 168 | 


Y INPUT ROUT! SEQ 0165 
STKCNT: .WORD Z;NUMBER OF ITEMS IN QUEUE 
$TKQIN: .WORD ‘INPUT POINTER 
STKQOUT: .WORD S:OUTPUT POINTER 
$TKOSRT: .BLKB X S:TTY KEYBOARD QUEUE 
STKOEND=, 
EVEN 
z*TK INITIALIZE ROUTINE 
[*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
; *SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
teCALL: 
* JSR PC, S$TKINT 
tt RETURN 
044726 $TKINT: CLR STKCNT z:CLEAR COUNT OF ITEMS IN QUEUE 
730 MOV #STKOSRT,S$TKQIN : 3MOVE THE STARTING ADDRESS OF THE 
32 MOV $TKQIN, $STKQOUT INTO THE INPUT & OUTPUT POINTERS. 
MOV #STKSRV, aA TKVEC SHINITIALIZE THE KEYBOARD VECTOR 
200 MOV #200, @#TKVEC +2 LEVEL 4 
150 TST a$TkB SECLEAR DONE FLAG 
100 134140 MOV #100, a$TKS TENABLE TTY KEYBOARD INTERRUPT 
RTS PC + :RETURN 10 CALLER 


sTK SERVICE ROUTINE 
*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
>"BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
:*1T IN THE QUEUE. se 
i"IF THE CHARACTER IS A “‘CONTROL-C" (“C) STKINT IS CALLED AND 
>*UPON RETURN EXIT IS MADE TO THE “CONTROL-C’' RESTART ADDRESS (.MONIT) 


134134 $TKSRV: MOVB asTkB,~( - zzPICKUP THE CHARACTER 
177600 BIC #*C177 5} 33STRIP THE J 
1 CMP (SP) ,#SXON t:1S ITA RANDOM XON? :RANOO1 
BNE 30$ i: :RANOO1 
TST (SP) + T:CLEAN RANDOM XON OFF STACK :RANOO1 
RTI + :RETURN SRANOO1 
30S: = RANOO1 
000003 cmp (SP), 3 z21S in CONTROL C? 
046162 TYPE SCNTLC [:TYPE A CONTROL=C (*C) 
044736 SR PC gSTKINT 3 INIT THE K KEYBOARD 
2332 JMP ONIT Z:CONTROL C RESTART 
ia 1$: CMP (SP) #7 ::1S IT A CONTROL G? 
BNE 7:BRANCH IF NO 
000176 001140 CMP ASWREG, SUR t:1S SOFT=SWR SELECTED? 
BEQ 6$ 7:60 TO SWR CHANGE 
23: 
000001 044726 CMP aX, STKCNT z21S THE QUEUE FULL? 
BNE 3s [BRANCH IF NO 
001230 TYPE | S$BELL 3 :RING THE TTY BELL 
Ist Sp)+ 23 CLEAN CHARACTER bFF OF STACK 
000023 3$: CMP (SP) #23 ::1S 17 A CONTROL-S? 
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CZKMDA.P11 20-OCT-81 17:03 Y INPUT ROUTI 
8045 511 1021 BNE 32$ ; BRANCH IF _NO 
ae 2} 5077 134020 CLR asTKS 7:DISABLE TTY Mere INTERRUPTS 
804 124 5 $6 TST (SP)+ 3sCLEAN CHAR OFF STACK 
epee 51 1057 134012 31$: TST8 TKS ssWAIT FOR AC 
8049 0451 Ho BPL 1$ 33LOOP UNTIL ITS_THERE 
8050 0451 117746 135008 MOVB a -(SP) 3sGET THE § CT 
8051 Bo 3170 O36 718 177 BIC #°C177, (SP) 3sMAKE IT 7-BI1T ASCII 
2336 thee ace 000021 a | laa e318 a A ot ? 
pate Be 3l2 0127 000100 133764 ary #100,aSTKS $ZREENABLE TTY KEYBOARD INTERRUPTS 
0451 52 $ 044726 32$: INC STKCNT 3:COUNT THIS CHARACTER 
bc21$8 021627 000140 CMP (SP) ,#140 z3IS_IT UPPER CASE? 
0451 002405 BLT 2sBRANCH IF YES 
045174 021627 000175 CMP (SP) #175 z2I1S IT A_ SPECIAL CHAR? 
852808 003002 BGT 3;BRANCH IF YES 
045 op 14. 000040 BIC #40, (SP) 2sMAKE_IT UPPER CASE 
Bee 112677 177516 4$: MOVB (SP5+,a$TKQIN  ;;AND IT I UE 
S2l2 005237 044730 INC STKQIN 3sUPDATE THE POINTER 
Bee i oes ree 044730 044735 a STKQIN,#STKQEND ;;60 Ad i wn 
5394 ited 044734 044730 MOV #STKQSRT,STKQIN ;;RESET THE POINTER 
045 000002 5$: RTI ; sRETURN 


:*ROUTINE IS 
; *SERVICE THE TEST 
CALL = 


SESS STSSSESERDERSESSEOEECECEE DEE REEDEEREES 


045236 022737 000176 001140 écKSUR 

045244 001124 

045246 105777 133672 TSTB aSTKS 

045252 100121 BPL 15$ 

045254 117746 133666 MOVB  a$TKB,-(SP) 

045260 042716 177600 BIC rte) (SP) 

045264 021627 CMP (SP) #7? 

045270 001300 BNE 2s 
**CONTROL IS PASSED TO THIS POINT 
seROUT ING OR EROR IME SOF TuaRe 
°® — 

945272 123727 001134 000001 6$: CMPB 108, #1 

be8302 poso6 toe 

045304 602789 044736 JSR PC ,S$TKINT 

045310 005077 133630 CLR tk 

045314 112737 1 001135 MOVE «#1, SINTAG 

045322 104401 046174 TYPE  ,$CNTLG 

045 $ 104401 6201 SGTSWR: TYPE 

045 01374 176 MOV SWREG,-(SP) 

04955 10440 TYPOC 

045340 104401 046212 TYPE  ,$MNEW 

8100 045344 005046 19$: CLR =(SP) 


FOR CHANGE IN 
OPERATING IN TTY INTERRUPT 
#SWREG, SUR 


FAARAAAAAEAAEARAAARERAREEEEEEEAAAARAARERAARARRAREREEEARAERERRREREREE 


3 #SOF TWARE SWITCH ~ yg CHANGE ROUTINE. 
ENTERED FROM THE TRAP 


HANDLER, WILL 
N_SOF TWARE SuITCH REGISTER TRAP 
31S a SOFT=SWR SELECTED 

7 EX F NO 


MAKE IT 7-B1T ASCII 
3248 IT_A CON 
Ay ue Pur IT IN. THE TTY QUEUE 


FF AARAAAAAAAARAAREAAEAAARERERERAAAARARAAERARERAEERARAEAAAAEREREREEEEE 


THE TTY reerwt SERVICE 


FROM EITHER 
HE SOFTWARE Fie. REGISTER TRAP CALL RESULT _OF 


OFTWARE SWITCH REGISTER BEING SELECTED. 
WE RUNN IN AUTO-MODE? 


ONTR 
:3FLUSH THE TTY 
DISABLE TTY KEYBOARD INTERRUPTS 
72SET INTERRUPT MODE INDICATOR 


3sECHO THE CONTROL-G (*G) 
23 TYPE ny pe! ee 
4 3 SWREG FOR TYPE 
et cen can ASCII CALL DIGITS) 
FOR NEW SwWR 


:eBR 
ae SECLEAR COUNTER 


SEQ 0166 
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CZKMDA.P11 TTY INPUT ROUT! SEQ 0167 

101 045 5046 CLR =(SP) z: THE NEW SUR 

10 3 20 105777 133570 7$: TST8 asTks [CHAR THERE? 

103 100375 BPL $ t:1F NOT TRY AGAIN 

105 045 117746 1335 MOVB -(SP) zzPICK UP CHAR 

106 gees 042716 177080 BIC iis (SP) Z:MAKE IT 7-B1T ASCII 

108 € 021627 000003 CMP (SP) #3 31S IT A CONTROL=C? 

1 a 1015 BNE H 

110 045374 104401 046162 TYPE SCNTLC T:YES, ECHO CONTROL=C (“C) 

111 045400 706 ADD #6, SP 23 CLEAN UP STAC 

11 045404 1 372 001135 000001 cnee SINTAG,#1 ZREENABLE TTY KEYBOARD INTERRUPTS? 
8114 045414 01277 900100 133522 MOV #100, a$TKS + TALLOW TTY KEYBOARD INTERRUPTS 
8115 045422 137 00233 8$: JMP .MONIT 7: CONTROL-C RESTART 

8117 

8118 045426 021627 000025 9$: CMP (SP) #25 3318 1 A CONTROL-U? 

8119 0454 1005 BNE 10: H IF NOT 

8120 045434 106401 046167 TYPE  ,$CNTLU zIYES, ECHO CONTROL-U (*U) 
121 045440 062706 000006 208: ADD #6, SP IGNORE PREVIOUS INPUT 

Big¢ 045444 00073 BR 19$ $3Ler’ S TRY IT AGAIN 

8124 
8125 045446 021627 000015 10$: CMP (SP) #15 3318 i A <CR>? 

8126 04545 001022 BNE 16$ H IF NO 

8127 045454 005 000004 TST 4(SP) IVES. Is IT THE FIRST CHAR? 
8128 045460 00140 BEQ 11$ 33 H IF YES 

8129 045462 16677 2 133450 MOV 2(SP) ,aSWR T:SAVE NEW SWR 

1 0454 06 11$: ADD #6,SP stip UP oy 

8131 045474 104401 0012 14$: TYPE SCRLF <CR> 

8132 045500 123727 001135 000001 re SINTAG.#1 33 RE-ENABLE TTY <B> INTERRUPTS? 
8133 045506 001003 BNE 15$ 3: H IF NO 

8134 045510 012 000100 133426 MOV #100, aSTKS ::RE-ENABLE TTY KBD INTERRUPTS 
8135 04551 15$: RTI 7 RETURN 

8136 0455 044132 16$: JSR PC .STYPEC ZZ:ECHO CHAR 

813 045524 021627 CMP (SP), *:CHAR < 0? 

138 0455 24 BLT 18$ 7 BRANCH IF YES 

8139 0455 021 000067 CMP (SP) #67 *:CHAR > 7? 

8140 043536 3015 BGT 18$ [BRANCH IF YES 

141 045540 042726 000060 BIC #60, (SP)+ t:STRIP-OFF ASCII 

148 045544 00 766 000002 TST (SP) zz1S THIS THE FIRST CHAR 

143 04555 140 BEQ 73 3: H IF YES 

144 04555 16 ASL (SP) [:NO, SHIFT PRESENT 

145 0465554 16 ASL (SP) :: CHAR OVER TO MAKE 

8146 045556 16 ASL (SP) :: ROOM FOR NEW ONE. 

8147 045 90 266 909092 17$: INC 2(SP) [:KEEP COUNT OF CHAR 

8148 045564 36616 177776 BIS =g(SP). (SP) [:SET IN NEW CHAR 

8149 0455 BR 7:GET THE NEXT ONE 

8130 04597 104401 001234 18$: ‘TYPE SOUES *:TYPE ?<CR><LF> 

151 045576 000720 20$ t:SIMULATE CONTROL-U 

13¢ -DSABL LSB 

13 

155 FRAAAAAAAAEAAAAEHRAEAAEEAEAARAARARARAAARERAARERAAAEREEAEAEEEEEEE 
8156 *STHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


n 13 
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CZKMDA.P11 TBY 1 PsOS INPUT SEO 0168 | 
8157 3*CALL: 
158 * RDC z:GET A CHARACTER FROM THE QUEUE 
159 :* RETURN HERE Z:CHARACTER IS ON THE STACK 
160 7* z:WITH PARITY BIT STRIPPED OFF 
ry : 
Biss 04 11646 SRDCHR: MOV (SP) ,=(SP) i :PUSH. DOWN THE PC AND 
164 045602 016666 000004 000002 MOV 4 (SP) »2¢SP) 3: THE PS 
8165 04561 5066 000004 CLR 4(s 23GET READY FOR A CHARACTER 
8166 045614 905046 CLR ::PUT NEW PS ON STACK 
816 045616 12746 045624 MOV 7523, =(SP) ::PUT NEW PC ON STACK 
8168 04362 000002 RTI ::POP NEW PC AND PS 
8169 4 648: 
8170 043624 005737 044726 1$: 1ST STKCNT zz:WAIT ON A CHARACTER 
8171 045630 001775 BEQ 1$ 
8i7¢ 045632 005337 044726 DEC STKCNT z:DECREMENT THE CCUNTER 
8173 0456 117766 177070 000004 MOVE — @STKQOUT.4(SP) 33GET ONE CHARACTER 
8174 045644 00525 04473 INC $TKQOUT [UPDATE THE POINTER 
8175 045650 023727 044732 044735 CMP $TKQOUT, aSTKQEND’ ; ;:D1D IT go OFF OF THE END? 
8176 04565 001003 BNE $ 
8177 045 012737 044734 044732 MOV #STKOSRTSTKQOUT’ = RESET tHE POINTER 
8178 045666 000002 2s: RTI “igRESET 
8179 FRRAAAAARARAARAERERERAEAAEAAAAEAARARARARAARAAAAAARAARARAAERAERERERERERE 
8180 [*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
8181 = *CALL: 
8182 8 RDLIN ZZ INPUT A STRING FROM THE TTY 
818 ie RETURN HERE S:ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
8186 7* 7: TERMINATOR WILL BE A BYTE OF ALL O'S 
8186 045670 010346 SRDLIN: MOV R3,-(SP) r:SAVE R3 
8187 045672 005 6 CLR -(SP) S:CLEAR THE RUBOUT KEY 
8188 045674 012703 046124 1$: MOV #STTYIN,R3 2IGET ADDRESS 
8189 045700 022703 046162 23: CMP #STTYING30. .R3 : BUFFER FULL? 
8190 045704 101456 BLOS 4$ 33BR IF Y 
8191 045706 104410 RDCHR [G0 READ ONE CHARACTER FROM THE TTY 
8192 045710 112613 MOVB (SP) +, (R3) tIGET C 
8193 045712 122713 000177 10$: CMPB #177, (R3) t:1S IT A Or 
8194 045716 001022 BNE 5$ 77BR IF 
8195 045720 005716 TST (SP) t:1S THIS THE FIRST RUBOUT? 
8196 045722 001007 BNE $ 7:BR IF 
8197 045726 112737 000134 046122 MOVB ss #''\ 98 t:TYPE A BACK SLASH 
8198 045732 104401 $122 TYPE , 
8199 045 01 716 1777 MOV #-1, (SP) ::SET THE RUBOUT KEY 
045742 00530 6$: DEC R 7 :BACKUP BY ONE 

1 065744 020327 046124 CMP R3,HSTTYIN 23 STACK EMPTY? 

: 045750 1034 BLO [BR IF YES 
8203 045752 111337 04612 MOVB = (R3),9$ 33 SETUP TO TYPEOUT THE DELETED CHAR. 
8204 045756 104401 04612 TYPE 9$ YPE 

5 045762 000746 BR b$ 3:60 READ ANOTHER CHAR. 
8206 045764 005716 5$: TST (SP) ;:RUBOUT KEY SET? 
8207 045766 1406 BEQ 7$ [BR IF NO 

08 04577 112737 000134 046122 MOVB = #'"\, 9 7:TYPE A BACK SLASH 
8209 045776 104401 046122 TYPE =, 
8210 046002 003016 CLR (SP) s3CLEAR THE RUBOUT KEY 
8211 046004 122713 000025 7$: CMPB ss #25, (R3) 1S CHARACTER A CTRL U? 
8212 946010 001003 BNE 83 ::BR IF NO 





CZKMDAO_DMS11-DA STA 
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13 1 
14 1 
15 
1 4 
8217 0460 
esis 
as 60 
Be ie 
8298 Beene 
8224 6054 
8225 046060 
bs se 
8228 046072 
5585 76 
82 100 
8231 6102 
a5%8 046104 
8233 046112 
8234 046120 
8235 Bee ice 
8236 04612 
8237 046124 
8238 046162 
8239 046167 
8240 046174 
8241 046201 
8242 046206 
8245 046212 
8244 046220 
8245 
8246 
8247 
8248 
8249 
8250 
8251 
825 
825 
8254 
8255 
8256 
8257 
8258 
8259 
8260 046224 
8261 046226 
8262 046 


ed ed od —_ 

Seessuse 
SESONNE F>, 
=e 2 


—_ 
=33 
NEWNESS 


NO 


w-o— 
NM SINS we 


NeoRER TONES 
Ser oNSSS 


oooo 
FS5 
AWO—WIW— 


: 
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17:03 TTY INPUT ROUTINE 


046167 
000022 


1235 
6124 


000002 
000004 


5 000 
3 000012 
3 051127 
6 020127 


000004 000002 


046352 


33 TYPE_A CONTROL ‘U"’ 


TYPE SCNTLU 
BR 3260 START OVER 


8$: CMPB #22. (R3) t:1S CHARACTER A ‘*R'’? 
BNE 3 32 CH IF 
CLRB 3) 33CLEAR THE CHARACTE! 
TYPE -SCRLF si TYPE A 
TYPE STTYIN +: TYPE THE INPUT STRING 
BR é 33G0 PICKUP ANOTHER CHACTER 
4$: TYPE SQUES : TYPE 
BR $ CLEAR THE BUFFER AND LOOP 
3S: nove (R3) ,9$ T:ECHO THE CHARACTER 
CMPB Os #15, (3) ;3CHECK FOR RETURN 
BNE IF NOT RETURN 
CLRB 3s = 1(R3) :ECLEAR RETURN (THE 15) 
TYPE LF T:TYPE A LINE F 
TST (SP)+ CLEAN RUBOUT KEY FROM THE STACK 
MOV (SP)+,R3 T:RESTORE R3 
MOV (SP) ,-(SP) : ADJUST THE STACK AND PUT ADDRESS OF THE 
MOV 4(SP5 ,2(SP) FIRST ASCII CHARACTER ON IT 
MOV #STTYIN,4(SP) 
RTI ;RETURN 
9S: .BYTE 0 i STORAGE FOR ASCII CHAR. TO TYPE 
“BYTE ¢ +: TERMINATOR 
$TTYIN: .BLKB 30. SRESERVE 30. BYTES FOR TTY INPUT 


SCNTLC: .ASCIZ /*C/<15><12> ssCONTROL °C" 
SCNTLU: .ASCIZ /*U/<15><12> 7: CONTROL ‘uU'' 
SCNILG: .ASCIZ /*G/<15><12> s CONTROL ‘'G 
SMSWR: .ASCIZ <15><12>/SWR = / 


SMNEW: .ASCIZ / NEW = / 


-EVEN 
-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


FRAAAEAAEAAAAERERERERREREEEREREREAERAEEREEAEEEEEEEREERERERRERREREE 


TRTHIS peyt WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


s*CHANGE IT TO BINARY. 

3*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
s*OCTAL DIGITS. IF AN ILLEGAL CHARACT He IS READ A ‘‘?"* WILL BE TYPED 
FOLLOWED BY A CARRIAGE RETURN~LINE FEED. THE COMPLETE NUMBER MUST 
7*THEN BE RETYPED. THE INPUT IS TERMINATED SY TYPING A CARRIAGE RETURN. 


3*CALL: 


* RDU ;3READ AN OCTAL NUMBER 

* RETURN HERE :LOM ORDER BITS ARE ON TOP OF THE STACK 
* *:HIGH ORDER BITS ARE IN $HIOCT 

SRDOCT: MOV (SP) ,=(SP) 


a30noviee SPACE FOR THE 
NPUT R 


MOV 4(SPS ,2(SP) NUMBE 
+:PUSH RO ON STACK 


MOV RO,-(SP) 


MOV R1,~(SP) 33PUSH R1 ON STACK 
MOV R2,-(SP) 33PUSH R2 3 STACK 
1$: RDLIN 3 sREAD SCciZ L 
MOV (SP)+,RO 23GET ADDRESS OF 1ST CHARACTER 
MOV RO,5$ 3 AND T 


SAV 
CLR R1 ZZCLEAR DATA WORD 


SEQ 0169 


( 
( 
' 
K 
K 
' 
l 
l 
t 
t 
l 
l 
t 
l 
l 
l 
l 
l 
l 
l 
l 
\ 
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CZKMDAO DMS11-DA STATIC MACY! 
1 17:03 AD AN OCTAL NUMBER FROM THE TTY 


CZKMDA.P11 20-0CT 


8269 54 005002 CLR R2 
70 Leos 28: MOVB (RO)+,-(SP) PICKUP THIS CHARACTER 
71 4 BEQ s31F ZERO GET OUT 
ies 62 122716 000060 C #°0, (SP) ZMAKE SURE THIS CHARACTER 
$6 26 BGT t:1S AN OCTAL DIGIT 
7% 1 3 16 000067 CMPB 2 fséa#'*7, (SP) 
75 7% 43 BLT 4$ 
as7e 76 006 ASL a4 z3%2 
006102 ROL R2 
B58 046302 006301 ASL RI 33%4 
79 046304 006102 ROL R2 
8280 046 6301 ASL Bq 32%8 
8281 04631 102 ROL R2 
8282 046312 716 177770 BIC #*°C7, (SP) zzSTRIP THE ASCI! JUNK 
8283 046316 601 ADD (SP)+,R1 7zADD IN THIS DIGIT 
8284 046320 000756 BR es 33 
8285 046322 005726 3$: TST (SP)+ 7:CLEAN TERMINATOR FROM STACK 
8286 046328 010166 000012 MOV Ri. 12(SP) 7:SAVE THE RESULT 
8287 046330 010237 046362 MOV R2 gSHIOCT 
8288 0463 912602 MOV (SP) +,R2 3:POP STACK INTO R2 
8289 046336 012601 MOV (SP)+.R1 :POP STACK INTO R1 
8290 046340 012600 MOV (SP) +.RO 3 POP STACK INTO RO 
8291 046342 RTI 7 RETURN 
8292 046344 005726 4$: TST (SP) + 3 CLEAN PARTIAL FROM STACK 
8293 046346 105010 CLRB = (RO) 33 eset A TERMINATOR 
8294 046350 104401 TYPE TYPE UP THRU THE BAD CHAR. 
8295 046352 000000 5$: -WORD 0 et 45 
8296 046354 104401 001234 TYPE ,SQUES 2° "CR BLE 
8297 046360 000730 BR i$ i TRY AGAIN 
8298 046362 000000 SHIOCT: .WORD 0 : :HIGH ORDER BITS GO HERE 
8299 -SBTTL READ A DECIMAL NUMBER FROM THE T 
8301 . SEAAAAEAARAAEAAAAEEAAAEAREEEEEEARAEEERAERAEEERERERERERAARAEREREREREREREE 
8302 *STHIS ROUTINE WILL READ A DECIMAL (ASCII) NUMBER FROM THE TTY AND 
8303 [*CHANGE IT TO BINARY. IF TOO MANY CHARACTERS OR ANY ILLEGAL CHARACTERS 
8304 Z*ARE READ A ‘'?°’ FOLLOWED BY A MOARRI AGE RETURN-LINE FEED WILL BE TYPED. 
8305  * THE COMPLETE NUMBER MUST BE RETYPED. THE INPUT IS TERMINATED BY THE 
8306 Z*USER TYPING A CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER IS 
8307 :*POSITIVE 32767 TO NEGATIVE 32768. 
8308 :*CALL: 
8 3 RDDEC 77READ A DECIMAL NUMBER 
3310 3* RETURN HERE ::NUMBER IS ON TOP OF THE STACK 
8312 ‘ 
8313 046364 011646 SRDDEC: MOV (SP) ,-(SP) zzPROVIDE SPACE FOR 
8314 046 016666 000004 000002 MOV 4(SP) ,2(SP) 7: THE INPUT NUMBER 
8315 046374 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
8316 046376 010146 MOV R1,-(SP) :PUSH R1 ON STACK 
8317 046400 010246 MOV R2.-(SP) PUSH R2 ON STACK 
8318 046402 104411 1$: RDLIN ::READ AN ASCIZ LINE 
8319 046404 012600 MOV (SP)+,RO ZZADDRESS OF 1ST CHAR. 
8320 046406 010037 046532 MOV RO,6$ 7: SAVE INCASE OF BAD INPUT 
8321 046412 005046 CLR -(§P) Z:CLEAR DATA WORD 
8322 046414 995008 CLR R2 ::S16N SET POSITIVE 
8323 046416 122710 000055 CMPB ss #' =, (RO) SEE IF A MINUS SIGN WAS TYPED 
8324 046422 001001 BNE 2$ ::BR IF NO MINUS SIGN 
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8 046424 112002 MOVB (RO) +, R2 z:SAVE FOR LATER USE 
8 6 0464 112001 2s: MOVB = (RO) +.R1 + PICKUP THIS CHARACTER 
8 001424 BEQ 3$ ziGET OUT IF eRe 
8328 0464 297 1 000060 CMPB sé’, R11 MAKE SURE THIS CHARACTER 
8 046436 003032 BGT ae ths A DIGIT BETWEEN 0 & 9 
8330 046440 122701 000071 CMPB #91 
8331 046444 002427 BLT 
8332 046446 032716 170000 BIT #°C7777,(SP) DON'T LET NUMBER GET TO BIG 
8333 046452 001024 BNE 5$ 3BR IF NUMBER WOULD OVERFLOW 

046454 006316 ASL (SP) tie 
8335 046456 011646 MOV (SP) ,=(SP) T:SAVE ¢OR LATER 
8336 046460 006316 ASL (SP) 72%4 
8337 046462 006316 ASL (SP) 1:98. 
8338 046464 616 ADD (SP)+, (SP) 33210. 
8339 046466 102416 BVS 5$ ZOVERFLOW ISN'T ALLOWED 
8340 046470 162701 000060 SUB #°0,R1 :ISTRIP AWAY THE ASCII JUNK 
8341 046474 060116 ADD R1, (SP) 33ADD_IN THIS DIGIT 

2 046476 102412 BVS 5$ ZZ: OVERFLOW ISN'T ALLOWED 
8343 046500 000752 BR 2$ + LOOP 
8344 046502 005702 3S: TST R2 7:CHECK IF NUMBER IS NEG 
8345 046504 001401 BEQ 4$ ::BR IF NO 
8346 046506 005416 NEG (SP) 7: YES=-NEGATE THE NUMBER 
8347 046510 012666 000012 4$: MOV (SP)+,12(SP)  ::SAVE THE RESULT 
8348 046514 012602 MOV (SP) +-R2 ::POP STACK INTO R2 
8349 046516 012601 MOV (SP)+-R1 +:POP STACK INTO R1 
8350 046520 012600 MOV (SP)+-RO ::POP STACK INTO RO 
8351 046522 000002 RTI +: RETURN 
8353 046524 005726 5$: TST (SP) + sechene PARTIAL NUMBER FROM STACK 
8354 046526 105010 CLRB = (RO) 7:SET A TERMINATOR 
8355 046530 104401 TYPE ::TYPE THE INPUT UP TO BAD CHAR. 
8356 046532 000000 6$: .WORD 0 :3POIN NTER GOES HERE 
8357 046534 104401 001234 TYPE SQUES 9 CRT ert gt 
8358 046540 000720 BR is ::TRY AGAIN 
8359 .SBTTL ROUTINE TO SIZE MEMORY 
8361 FF AAAAAAARAEREAEREAERAERAEEEEEEEEAEARERAARRRARAERARARERAEREREREERREREREREEEE 
8362 s*CALL: 
8563 * JSR PC,$SIZE 
3% 

8365 [*SLSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 
8367 046542 010046 SSIZE: MOV RO,-(SP) zzSAVE RO ON THE STACK 

046544 010146 MOV R1.-(SP) >:SAVE R1 ON THE STACK 

046546 013746 000114 MOV avil4,-(SP) Z:SAVE MEMORY ERROR VECTOR PS & PC 
8370 046552 013746 000116 MOV a4#116,-(SP) 
8371 046556 012737 000116 000114 MOV #116,a8114 :: IGNORE PARITY ERRORS WHILE SIZING 
8372 046 01¢757 000002 000116 MOV #RTI 
8373 046572 013746 000004 MOV SRERRVEC. 5 (SP) ) 7 #SAVE PRESENT ERROR VECTOR PS & PC 
8374 046576 013746 0600006 MOV @#ERRVEC +2, =< 
8375 046602 010600 MOV SP,RO SAVE THE STACK POINTER 
8376 zzSET THE ERRVEC PS TO THE ial PS 
8377 046604 104400 TRAP ; PUSH OLD PSW AND PC ON STACK 
8378 04 O12 3 MOV (SP) +, a#ERRVEC+2° iSAVE THE PSW IN a#ERRVEC+2 
8379 046612 012737 046632 000004 MOV #2$,aHERRVEC ::SET F FOR’ TIMEOUT 
8380 046620 012701 020000 MOV 450000" R1 :: FIRST ADDAESS 
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TINE TO SIZE MEMORY SEQ 0172 
(R1) ZTEST THIS ADDRESS 
(R1)+ Z:STEP TO NEXT ADDRESS 
1$ 7: TRY ANOTHER 
#2,R1 : DROP BACK 
RO.SP TRESTORE THE STACK 
(SP)+, @#ERRVEC+2 ::RESTORE ERROR VECTOR 
(SP) +, a#ERRVEC 
(SP)+,a#116 Z:RESTORE MEMORY ERROR VECTOR 
(SP)+,a4114 
R1,S$LSTAD ZZLAST ADDRESS 
(SP)+,R1 S:RESTORE R1 
(SP)+.R0 RESTORE RO 
z: CONTAINS THE LAST ADDRESS 
a(sP),RO :GET REGISTERS 
#2, (SP) : THE STACK 
a(SP) ,R1 :GET THE DATA 
#2, (SP) [BUMP THE STACK 
RO.#10 [TEST FOR SECONDARY REGISTER WRITE 
sec ‘YES GO TO WRITE SECONDARY 
#17, PINS ZCLEAR OLD PRIMARY ADDRESS 
RO, WPINS ZLOAD NEW PRIMARY ADDRESS 
R1.4(R4) [LOAD DATA INTO SEL4 
WREX 760 TO EXIT 
WB1T4,WINST1 | ;SET THE WRITE BIT 
#81T11,R0 7SET A MARKER INTO RO 
SROTATE TO ALIGNE ADDRESS 
1$ [CONTINUE UNTIL MARK FOUND 
#°C340,R0 [MASK EVERYTHING ELSE 
RO, WINST1 [LOAD THE SECONDARY ADDRESS 
R1.WINST2 [LOAD 
»PRI12 
,PR1I10 


PR'MARY OR SECONDARY KMC11 REGISTER ROUTINE 


a(sP) RO :GET THE REGISTER 

#2, (SP) : THE STACK 

RO.#10 [TEST IF A SECOND. 

RSEC :YES GO TO READ SECONDARY 
#360,RINST [CLEAR THE OLD ADDRESS 

#4 Ri ‘LOAD A SHIFT COUNT 

RO [SHIFT SECONDARY ADDRESS 
1$ 

#°C360,RO 

RO,RINST ZLOAD THE REGISTER ADDRESS 
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ROUT INE 


000001 
047232 
000001 
000006 


000001 
000001 


047350 





TO SIZE MEMORY 
RINST: 21004 
MOV (SP)+,RO z:POP STACK INTO RO 
MOV (SP)+-R1 ::POP STACK INTO R1 
MOV 4 (R46) .=(SP) PUSH 4(R4) ON STACK 
BIC #°C<377>,(SP) CLEAR UPPER BYTE 
MOV R1,-(SP) +;PUSH R1 ON STACK 
MOV RO,-(SP) ::PUSH RO ON STA 
BR REXIT 260 TO EXIT 
RSEC: CLR RINST1 ZCLEAR THE OLD INSTRUCTION 
BIS #81T11,RO [SET ROTATION STOP MARK 
1$: ROL RO ZROTATE LEFT TO ALIGN ADDRESS 
BCC 1$ [CONTINUE UNTIL FOUND 
BIC #°C340,R0 [MASK EVERYTHING ELSE 
BIS RO,RINST1 TLOAD THE REGISTER ADDRESS 
WRITE  ,PRI12 
RINST1: 0 
READ, ;READ PRIMARY 
MOV (SP)+,RO :;POP STACK INTO RO 
MOV (SP)+-R1 +:POP STACK INTO R1 
MOV (SP)+-R2 t:POP STACK INTO R2 
MOV RO,-(SP) ::PUSH RO ON STAC 
MOV R2,-(SP) t:PUSH R2 ON STACK 
V R1,-(SP) [:PUSH R1 ON STACK 
REXIT: EXITT 
.MSTCLR: 
CLR (R4) :*;CLEAR RUN, IF UP 
BISB #BI1T6,1(R4) SSET MASTER CLEAR 
CLR (R4) :CLR THE CSR REGISTERS 
CLR 2(R4) 
CLR 4(R4) 
CLR 6(R4) 
MOV CLINE, 10$ :RELOAD THE LINE NUMBER 
WRITE ,PRI11 
10$: WORD 6 
EXITT RETURN 
-ROMCLK: 
BISB #BIT1,1(R4) :SET ROMI 
MOV a(SP) ,6(R4) [LOAD THE INSTRUCTION 
ADD #2, (SP) : THE STACK 
1$: BISB —- #BIT1!BITO,1(R4)" ;CLOCK INSTRUCTION 
BIB #81T2'BIT1'BITO,1(R4) ;CLEAR ROMO, ROMI, STEP 
z*THIS ROUTINE IS USED TO MASK DATA RETURNED 
[FOR TESTS THAT READ PRIMARY REGISTER'S 
7*16,17. THIS ROUTINE WILL DETERMINE THE LINE 
"*NUMBER AND CALCULATE THE MASK CHARACTER 
.MASK: MOV #8. ,R1 :COUNT SHIFTS 
MOV LINBYT,9$ 
MOV #9$,R2 7 @LINSYT 
1$: CLC 
R (R2) :BIT 0 > C¢ 
ROLB =: 1(R2) :C > BITS 
DEC R1 ‘COUNT SHIFTS 
1$ [NOT DONE=B 
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ROUTINE TO SIZE MEMORY 


MOV #-1 ,MASK 
BICB 9s, MASK sCALCULATE MASK CHARACTER 
_ TS sEXIT 


MASK : 


[CRC-32 MAINTENACE CHECK 


CRC: 
JMP CRCENT 
:THIS ROUTINE wilt L_CALCULATE T THE 32 BIT CRC CODE GENERATED 
TAS A_RESULT TA STREAM. THE CR YMOMI AL 
+ HSevkgbex2SeXa2oK160X1Z0X 1 9X1OSKBSX7OKSONGONEOXOT 
OnIs RO ROUTINE WILL READ UP TO A 32 BIT (BINARY) (1052617 OCTAL) 
: FROM THE TELETYPE CONSOLE IF ENTERED FROM LOCTION 
:CRCENT:"’ AND CALCULATE AND PRINT RESULTANT CRC REMAINDER. 
seni THe RESULTANT CRC CODE IS STORED IN LOCATIONS “‘CRCHI & CRCLOW’’ 
CALFLG: 0 zFLAG TO INDICATEENTRY POINT 
CRCENT: CLR CALFLG :FLAG TO INDICATE ENTRY POINT 
TYPE ~,65$ z:TYPE ASCIZ STRING 
BR =:GET OVER THE ASCIZ 
11958: -ASCIZ <15><12>/ENTER UP’ TO 10 DIGIT OCTAL MSG. CODE/<15><12> 
* _ RpocT 
MOV (SP)+,R2 :GET LOW ORDER DIGITS 
MOV sHIOcT, R3 ‘HI ORDER DIGITS 


BR 
sENTER HERE WITH HIGH ORDDER DIGITS IN R3 AND 


LOW ORDER I 
CRCCAL: MOV #-1,CALFLG : INDICATE ENTRY POINT 


MOV R2,$TMPO [USE $TMP TO CALCULATE CRC 


MOV #016667, Re LOW ORDER OF POLY 


18: wy #002301,R HIGH ORDER OF POLY 
; ROL STMPO zLEFT AND ENTER A ONE IN BIT 0 (CARRY) 
ROL STMP1 
BCS 2s sB=CARRY SET (NO XOR) 
XOR - -STMPO sEXCLUSIVE OR LOW 
XOR -STMP! EXCLUSIVE OR HI 
2s: BNE RENT 
STMPO + TMP1 CONTAIN THE CALCULATED CRC CODE 
IF ENTRY WAS “CRCENT’’ TYPE 10 DIGIT CALCULATED CRC CODE-RET-CRCENT 
‘lr oe ‘CRCCAL"* RETURN TO CALLING ROUTINE 
BEQ RESULTS 


;MESSAGE CRC_SO BIT31 IS" ‘BIT "0 OF $TMP2 AND 
3B1T 0 IS BIT 15 OF $TMP3, THE CRC IS ARRANGED TO 


SEQ 0174 
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001206 


ROUTINE TO SIZE MEMORY 


1 by! THE SAME ORDER IN WHICH IT WOULD BE TRANSMITTED 
zIF IN GENERATE MODE 


001206 MOV STMPO,STMP ZSAVE FORWARD ORDER CRC 
00121 MOV STMP1.STMP 
047360 MOV 432. CRCNT 7 COUNT 
38: ASL me [DOUBLE PRECISION LEFT 
ROL tla 
ROR STMPS ZSHIFT THE CARRY IN 
ROR STMPS Z INTO L 
DEC CRENT :=1 TO TOTAL SHIFT COUNT 
RTS PC :RETURN TO CALLER 
5$: -TYPE THE es OCTAL WORDS 
TYPE z:TYPE ASCIZ STRING 
BR $3 “GET OVER THE ASC1Z 
iis "ASCIZ <15><12>/CALCULATED CRC = 
“MoV STMP1,-(SP) 33 SAVE sTmpt FOR TYPEOUT 
TYPOC 2360 TYPE--OCTAL ASCII(ALL DIGITS) 
TYPE 67$ S:TYPE ASCIZ STRING 
BR 66$ t:GET OVER THE ASCIZ 
jig? wASCIZ / / 
MOV STMPO,-(SP) z:SAVE $TMPO FOR TYPEOUT 
S: TYPE LOW 
TYPOC 7:60 TYPE--OCTAL ASCII(ALL DIGITS) 
JMP CRCENT “TRY AGAIN 
z*THIS ROUTINE ISSUES A LINE RESET TO THE CURRENT LINE 
'*BEING EXERCISED. 
-LRESET: 
047724 MOV CLINE, 10$ ;LOAD THE CURRENT LINE NUMBER 
WRITE  .PRI11 
10$:  . WORD 
000001 WRITE »PR112,B1T0 ZISSUE A LINE RESET PULSE 
FF AARAAAAAAAARERAAAREAEEEEEEEEEEAERAERERERARERRAERRREREREREREREREERE 
THIS ROUTINE WILL TICK THE MAINTENACE CLOCK 
"'N’’ NUMBER OF TIMES, "WN WILL BE ON THE STACK 
Ze CS Se a NT 
050046 .TICK: MOV a(SP) ,67$ :GET "NW" 
ADD #2, (SP) :BUMP THE STACK 
BLE TICKEX 
READ -;PRI14 3GET CONTENTS a PRIMARY 14 
MOV (SP) +, 66$ +:POP STACK 66 
050042 BIC #177400, 66% {CLEAR ERRONIOUSE DATA 
050042 64$ BIS BMA SET 
J PC é y ‘Tesue HALF TICK 
DEC 678 ‘COUNT TICKS 
sDONE EXIT 


BEQ - TICKEX 


SEQ 0175 


H 14 
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0 050042 6s ZRESET MA 
Se ; 50036 PC ge $ i ISSUE OTHER HALF TICK 
005337 050046 678 [COUNT TICK 
001 648 NOT ZERO CONTINUE 
00040  TICKEX YES E 
104416 000014 : *PRI14 
it 
000000 
000002 


Sees & 


sTICK COUNT 
CKEX: EXITT 
-SBTTL TRAP DECODER 


Uri rir iiiiiiitiiiiiiiiiiiiy) 

: THIS ROUTINE WILL +" THE LOWER BYTE OF Me *“TRAP*’ INSTRUCTION 
:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
3 #0F THE DESIRED ROUTINE. THEN USING THE ADDRESS CBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


STRAP: RO,-(SP) s SAVE _RO 
Vv (SP), RO IGE TRAP ADDRESS 
(RO) UP BY 2 


(RO) oRO 7:GET RIGHT BYTE OF TRAP 


ites ee FOR INDEXING 
STRPAD(RO) .RO 2 INDEX TO TABLE 
RO 3:60 TO ROUTINE 


genenneees 


SEEREREERIERE 


z3THIS IS USE TO HANDLE THE ‘'GETPRI*’ MACRO 


STRAP2: MOV (SP) ,-(SP) z:MOVE THE PC DOWN 
MOV 4(SP5 ,2(SP) ::MOVE THE PSW DOWN 
S:RESTORE THE PSW 


RRR 
wW 
w 


-SBTTL TRAP TABLE 


s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
7*BY THE "'TRAP’' INSTRUCTION. 


$TRPAD: .WORD 
e TTY TYPEOUT ROUTINE 
TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
NUMBER (NO LEADING ZEROS) 


PON RAP+4(1 PE NUMBER (AS PER LAST CALL) 
SECALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


22 CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 
23 CALL= CKSUR Lana $Y roy $: TEST FOR CHANGE IN SOF T-SWR 


SRDDEC ;;CALL=RDDEC T DECIMAL NUMBER FROM TTY 
501 eMSTCLR ;;CALL=MSTCLR ALL TO ISSUE A MASTER CLEAR 
050140 eROMCLK ;;CALL=ROMCLK CALL TO CLOCK ROM ONCE 


34 
8635 
8636 
8637 
8638 
8639 
8640 
8641 
fore 
864 
8644 
8645 
8646 
8647 
8648 
8649 
8650 
8651 
e636 
865 
8654 
963? 
8657 
8658 
8659 
8660 





SEQ 0177 
WRITE ;;CALL=WRITE else 
-LRESET i: CALL=LRESET TRAP+17(1 
-READ =READ T 0¢1 
- TICK :CALL=STEP TRAP +21 (1 
DIAGED: —y 


$ CALL TO WRITE ROUTINE 
) CALL TO i. RESET ROUTINE 
» : AD ROUTINE 


CZKMDAO DHSTI=DA STATIC MACY] 3OA(TO52) 21-OCT-81. 09:21, PAGE 1 
CIKMDA.P11, 20-OCT-81 17:03 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0178 
ABCA = 0000 13998 2823 2827 
ABCB = 00004 19008 5 © 5853 
ABCC = 0001 19018 5875 «(5879 
APA ac 900200 19148 
BADCRC 03261 6295, 6358" 6419 
BCRAD. 001264 
BITO "= 000001 2 1874 1875 1896 1907 1915 1923 1931 1986 2620 2621 2455 
2456 2493 8476 8477 8586 
BITOO = 000001 1741" 175) 
BITO1 = 000002 17408 1750 
81702 = 900004 17398 1749 
BITOS = 000010 17388 (174 
BITO4 = 000020 17378 176 
BITOS = 000040 17368 174 
BIT06 = 000100 17358 17% 
BITO? = 000200 17348 1744 
BITOB = 000400 17338 1743~—«7735 
BITO9 = 001000 17328 1742——7633.—Ss«7741 
BIT! = 000002 1750" 1893 1895 1903 1908 1916 1932 1974 2620 2621 2655 24656 2493 
2529, 2925 S156 652064346 647064848478 5% (8497 
BIT10 = 002000 710 959% 
BIT11 = 004000 17308 8412 8446 
BITI2 = 910000 17298 
BIT1$ = 020000 17388 7601 
BIT14 = 040000 19578 7721 
BITIS = 100000 17568 
BIT2 = 000004 1745#@ 1892 1896 1897 1904 1909 1917 1933 1973 2620 2621 2455 ~=—(2456 
2493 2529 6321 «6336. «63488477 
BIT3 = 000010 T7abe 1883 1887 189819051910 19181934 1971-2420 42124552456 
BITS = 000020 1747" 1867 1871 1899 1911 1919 24693 2631 411 
BITS = 00004 174g 1889 1891 1900 1912 1920 972 631 
BITé = 000100 17454 1869 1872 1888 1901 1913 1921 5493 2631 4357 8463 
BIT? = 000200 W7eee 1870 1885 1890 190219061914 922 B11 2420 aka HK 2 
BIT8 = 000400 17434 5939 3170 
BIT9 = 001000 17428 
= 000000 18734 4016 4157 4366 «4502S 46734844 «5696 ©5980 -«6049Ss«G110S«s«aS 182s‘ 278 
6404 6533 6659 
BPTVEC= 000014 17584 
BSELO = 000000 19634 
SEL1 = 000001 19648 
BSEL2 = 00000 19654 
BSELS = 00000 19668 
BSEL4 = 000004 19678 
Beet = bo000e 19000 
= 
Bee = Soooee 13008 
CALFLG 047362 BS164 B517* 8528+ 8545 
CCITT = 000001 1879@ 4488 45014302 4504 «450545494555 457145 4659 46724673 
e675 S676 G70 Gah 44g hrgi «$001 $014 $015,017 S018 S068 5068 
508} $104 5131 518@ 51375151 5164 © 5165 S167 S168 S218 Set9 285 
ccP = 0001 18728 33 £56 3015 5165 5315 5465. «S««S574— «S814 «5914 
CHRADR 041 72118 7243" 794 992 7400 
CKSWR = 106407 7590 7639 «7715 BbSaa 
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174* £366e 7567* 7568*: i363 7570* 
175* 2201 7149 71 7155 7158 
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731 7319 7324 7332 7341 7 7407 5 5 573 7 8648 
a 8650 gas 8654 8655 bese bes? $288 f29 S200 ec $663 8663 

GTSWR = 104406 $12) o65ee 

HT = 11 8 7841 

INCL = 005227 19248 

INIT = 1 193514 

IOTVEC= 1759#@ 2102* 2103* 

KIPARO= eeeeee 365 

KMCNT 041 183 72134 7253* 7259* 

KMC 0424 4504 

KMCPO 476 74548 

KMCPO 504 74584 

KMCPO04 3i6 74624 

KMCPOS 0425 74664 

Knee 04 369 74704 

KMCPO7? 0425 74748 

KMC 042542 74784 

KMC 042550 74824 

KMCP10 355329 74864 

KMCP11 042564 74904 

ie Bos276 74948 

KMCP1 2600 74984 

KMCP14 042606 75024 

KMCP15 042614 5064 

KMCP16 042622 75104 

KMCRO1 042466 74498 

a 042474 74534 

KMCROS 042502 74574 

KMCRO4 gos3i8 74614 

KMCROS 042516 74654 

KMCRO6 BSsaes 74698 

KMCRO7 042532 4734 

KMC 042540 74774 

KMC vat e4 74814 

KMCR10 042554 74854 

KMCR11 042562 74894 

KMCR12 942570 74934 

KMCR13 042576 74974 

KMCR14 042604 75014 

KMCR15 042612 75054 

KMCR16 04 4 75094 

KMCSO1 042472 74514 

KMCSO2 042500 74554 

KMCSO3 042506 74594 

KMCS04 7 514 74634 

KMCSO5 266 746784 

RAC SOS 0425 74714 

KMCSO 536 74754 

KMCSO8 544 74794 

KMCSO9 552 74834 

KMCS10 042560 74874 

KMCS11 042566 74914 

weai6 042574 74954 

KMCS13 04 $05 4994 

KMCS14 04261 75034 
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KMCSIe Oadeee parte 7520 
KMCTAB 288 oii? 7 1 7220 7e34 7279 74474 7522 7540 
KMC TBE 6 § 21 7 $ 7424 75134 
LF = 00001 16654 7835 7841 
LINBYT 001254 19864 7528 7556 8485 
LA = 000040 18914 6110 
LNLOCK= 000004 19334 
LNRST = 000001 19234 6344 6480 
LNO = 19514 
LNi = 00004 19368 
rm = 0001 195 
LN. = 00014 19544 
LN4 = 000200 19554 
LNS = 000240 19564 
LN6 == 000 1957# 
LN? = =: 00034 19584 
LOCK = 19324 
LOOP 00245 159 1714 2192 
LRESET= 10441 294 317 558 580 2602 3626 2649 671 693 4 744 770 7% 
8 § 848 874 900 941 $38 989 015 037 06 085 111 133 
1 198 $90 $08 68 294 316 34 3 390 $355 38 60 
3486 3508 5 3557 3583 3605 31 365 3701 72 3749 775 
3797 86624 
LTEST 002714 2215 22178 
MA - = 000040 18894 8601 8605 
MASK 047352 2354 $323 2388 2389 8493*  8494% 84984 
MB = 000100 18884 861 4020 4158 4262 4370 4509 4680 4851 5022 517, 5322 5470 
5579 5697 5816 5916 5982 6051 6111 6183 6289 6415 53 $668 
MC = 000200 18904 3861 4020 4158 4262 4370 4509 4680 4851 5022 172 322 5470 
5579 5697 5816 5916 3536 $07) ein 
MODTAB 041134 $i$¢ 191 7226 resee 72298 344 433 
MSTCLR= 104414 241 448 486 2522 928 3159 3857 4075 $338 4255 4360 4499 4670 
4841 501 16 5312 462 5571 56 5808 591 5978 6048 6109 6781 
6277 0 $37 6656 86594 
NIDLE = 000010 19104 343 346 3347 356 3363 3367 
041122 72248 ¢ 7271 7273 
NXTLIN 001252 19854 7547* 7554 7556 7558* 7561 7571 
002512 21784 2195 808 
= 18814 5451 464 5465 5467 5511 5517 5518 5522 5542 5547 
P = 177772 16714 
PIRQVE= 000240 17654 
PR110 = 000010 19354 420 8453 
= 000011 4 241 $53 $562 $8) 3013 rts $569 $386 
PRI12 = 000012 Hh hd 272 27 276 44 450 452 701 820 6344 6480 8418 
PRI13 = 000013 19384 2295 22 2299 2483 2488 2490 3866 3878 3892 3904 3917 
4025 4037 2 4 4086 2198 4171 4184 4 ” 420 4 seh 
4303 4311 437 438 4398 44 $ 4441 4454 451 452 4 73 
4686 4694 4707 4744 4779 $83 $863 487 4915 495 306 0 
5087 a 5178 3186 2608 : 37 2697 5 ‘ 5336 333 S 41 
54 498 2388 558 559. 607 56 5 zi¢? 5 8 5761 6 
2833 3709 $138 6207 6279 6297 6405 642 65 65 6580 1 
PRI14 = 000014 193 “2318 2si8 3 519 524 5 861 4020 4158 4 4370 
4680 4851 022 $355 322 $256 $26 386) ogee 5916 $863 rita 
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$183 oee) 608? pr H4 637} § 33 345 6407 6415 6651 6465 6467 


PRIIS = 15 19408 
PRIIG = D000 19418 349 50 353 
PRI17 = 00001 19428 3 84 8 
PROTEX= 000001 19078 3199 20 205 2 i9 3 
PROTEY= 000002 19084 3247 5 231 67 1 
PROTEZ= 000004 19094 3295 298 08 15 19 
PROTO = 000100 19138 90 91 500 507 511 
= 000000 16884 
PR1 = 000040 16894 
PR. = 000100 16908 
PRS = 000140 16914 
PRA = 000200 16998 
PRS = 000240 169 
PR6 = 000 16944 
PR7 = 000340 16954 
PSs =:177776 16684 1669 
PSw = 177776 16694 2151* 2172 
PT 041166 7222 237 2384 
PWRVEC= 000024 17608 
= 000004 18924 3939 3960 3944 4088 4089 4093 
RCRCE = 000002 1974 6283 6286 6409 6412 6471 64685 6540 6543 6593 6594 6598 
RDA = 000001 18754 3939 3969 3953 4088 4098 4102 4189 421 4292 4313 4417 
4456 6564 4581 4610 4715 475 4781 4886 492 4952 5058 5095 
5208 52465 5265 5358 5395 541 5506 5526 5615 5636 5729 5738 
5848 5857 6576 6685 6710 6725 
RDATA1= 000001 1915@ 3536 3539 3540 3549 556 3560 
RDATA2= 000002 19164 3586 3587 3588 3597 04 3608 
RDATAS= 000004 19174 3632 3635 3636 645 3652 3656 
RDCHR = 104410 7241 7395 8191 86554 
DEC = 104413 7267 86584 
ROLIN = 104411 7347 8265 «= 8318 += «86 56H 
CT = 104412 215 7389 8522 86578 
READ = 104420 2242 2273 296 2319 2350 2384 417 452 490 2526 560 582 
2628 2651 267 2695 721 2747 773 799 825 851 877 
294 969 3979 017 027 3038 065 075 086 M13 123 
3162 173 200 210 3221 3248 258 269 32 306 2331 344 
3365 339 3402 3413S 3440 «= 3450S 3467 88 9 509 537 547 
3585 59 3606 46-3633. i(3643 0 3654 681 91 70 3729 739 750 
3787 798 3866 3878 3892 3904 3917 3937 395 4025 4037 405 
40 4107, 411 64 4171 4184 4191 4200 4208 4212 4217 42 
4287 4294 30 4311 4315 6377 4385 4% 98 4419 443 4441 444 
4458 6461 4515 23 45360 454600 4555s s4573—si45BBOOCGS9GCG 4612 
4636 4686 4696 4707 4717 4726 6744 6759 476 4779 4783 «= 47% 
4857 4865 4878 888 4897 4915 4930 4938 4950 4954 4967 4978 
5036 505 5060 5069 5087 5102 5113511 5128 5178 5186 5200 
5219-523 52 é 5263 © 55267.—Ss«45 27 5328 «= 5336S: 5350 3360 5369-45387 
5413 5417 s«5G 5476 46 5484. «Ss «5498 «=s«s5508 «=—s«5524Ss«dS528 = «S539 ~=Ss 5585 559 
5617 5636 5638 5649 5701 +5708 #5724 ~& §7 5740 5750 5761 % 
5820 5826 5843 5855 5859 5869 5880 5953 5937 «55949 «= 6001 «Ss: 005 
6069 60 6075 6078 61 6 6129 61 613 6192 6207 621 6281 
6317633 6345 6407 64 6439 6446 6451 646 6481 6 6573 
6580 91 6662 84 6687 $692 $709 $712 6724 $727 845 8598 
REGIST 001240 1977# 2241* 22728 2295  2318% 2349 2383 24108 2445% 2483" 25192 2559 
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2603+ 2627 2650s 2672" 2694" 2720" 2746 2772 2798 ©2824" 2850" 2876" 29028 
® 
RENA = 000001 Taree 1 4020 4158 4 4370 4509 ©4680 4851 5022 5172 $322 5470 
5579 97 5816 5916 5 6051 6111 6183 | 6289 6415 653 
REOM = 000002 1g95e 27452749 4219 ba 4224 4463 4464 4468 = 4627 4628 46 4798 
4799 4803 4969 4970 4974 
RESVEC= 000010 17558 
REXIT 047170 8444 84608 
RINST 047072 8429 5* 84378 
RINST1 04714 8445" 8450" 84528 
ROMCLK= 10441 8407 8436 8660" 
ROR = 000010 18984 2797 2801 5939 5940 5944 5951 5952 5956 6007 6008 0126019 
RPRI 047040 
RSA = 000002 18938 
RSEC 047116 8428 84458 
RSOM = 000001 18944 2719 2723 4109 «41104114 
RXAB = 18978 5771 5772 5776 6080 6081 6085 
RXGA = 18 771 «2775S 137s «6138 = 6142 
= 000020 19118 3391 33 3395 3404 «34113415 4016 = 5980 9 
SECO = 19438 2559-25 3958 «64118 «= 4191 212, 2 4315 44194445 4458S 
45 4612 4717 4759 «= «44783 4888) = 4930 4954S 5102 5117 5210 5252 
5267 5360 5402 5417 5508 5528 5617 5638 5740 5765 5859 5933 
6069, 6072 6075 126 129132 218 b439 46 6576 g71e $727 
SEC1 = 000001 1944# 2581 2582 2719 2720 2721 2765 27466 2747 2771 « 2772~=«(2 2797 
2798 2799 «= 2823 «= 2824 «= 2825 2849 «= 2850 «= «3851 «= 43875 Ss «3876 «= 3877 = 5901 
2903 4107 4217 4461 4555 4596 4625 46 726 «4767s 4807 4897 
4938 4967 4978 5069 5128 5219 5278 5369 5428 5539 $649  §769 $937 
5949 6005 6017 6078 6135 
SEC2 = 000002 1945# 2603 2604 2926 2929 2931 2942 3890 3929 3931 3933 3935 4050 
4064 4078 4080 4082 4084 4168 4188 4272 4% 4382 440245 4540 
4691 4711 4862 4882 5033 5054 5183 52 5333 5354 5481 «5502S: 5590 
5611 5705 5714 5728 5824 5832 5847 5923 5925 5927 5929 593 
5991 5993 5995 5997 6003 6058 6060 6064 6066 6118 6120 6722 
6188 09 6436 6563 6680 
SEC3 = 000003 19468 £2628 2968 2969 20782979 88 31g 30173026 7 
3036 ©3038 «$064 «S068, «| S07e S078 «S086 SoG CS? SIS Bho 1 
3134 5902 4024 ©4049 4162 4169 4198 4266 4285 43014375 4383 
4430 4315 4521 4571 4684 46924742 48554863 4513 5026 50485085 
5175 5198 5235 26 ©5348 «= 5385 «547% 5583 5605 5706 $750 
5818 5861 5869 5920 5922 5986 5988 6055 6057 6067 6115 6117 6126 
6185 6187 6290 6314 6416 «6418 «= 6443 6546 6548 6 4 
SEC4 = 000004 1947# 2630 265131573160 3162-3173 386040194261 501651665316 
SECS = 000005 iseee 3072 3e73 «3198-3300 $909 10 3219 ©3221 47 4 57 5 
57 $55 $393 3296 3305 33065153819 3 33 it ee tT 
3o5 $5391 339 401 02 11 13 3439 0 49 3450 593461 
3487 3488 3497 3498 350 509 38584016 «4157 4260 4366 «4502 4673 
4844 5015 5165 5315 5465 5576 5696 5814 5914 5980 6049 6110 6182 
6278 64046 6533 6659 
SEC6 = 000006 19498 
SEC? = 000007 1990# 2694 2695-3556 3537-3546 3547 3556 «355835843585 35943595 
$604 3606 3652 3655 eke 364 65 654 0 81 90 91 3700 
3702 28 «= 3729 38 (373 48 © 375 76 «(3777 86 3787 3798 
4156 ©4259 «4368 «= 4406 «= 4501) 4672S 4843 «5014S 51645314 5464 0S «5573 5695 
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177774 
000002 
001140 
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000001 
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000002 
000004 
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000002 
002000 
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020000 
040000 
100000 
000004 
000010 
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000040 
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000200 
000400 
001000 
000026 
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Tattve= Go90is 17564 
= 
= 000020 18718 2494 3868 7869 3873 3 3881 85 49 7 64028 4 4039 4040 
4044 41 4186 4270 $33 2398 4517 & & 4 4859 4 
5030 505 3182 5 Os 5 5352 547 5500 558 5703 5712 5726 
2856, 583 84 $309 6304 6425 642 6 6581 93 
TCRCE = 000004 ee oc8s 62 $ 37 6409 6412 654 654 6593 6594 6598 6664 
TDATAI= 000040 19204 $80 3 93 700 3704 
TDATA2= 000100 19214 3 8 31 32 741 748 $006 
TDAT 000200 19224 6 779 780 89 796 800 
TENA = 000020 196re : 1 4020 4158 4262 4370 4509 4680 4851 3098 517 5322 5470 
55 697 5816 5916 5982 6051 qu 6183 6289 1 653 6660 
TEOM = 000002 19034 3316 3912 3020 3029 30 re 4198 4301 4430 8 4571 4742 = 4913 
5085 523 5385 6067 6124 314 644 6586 99 
TERR = 000200 b+ 74 5752 5753 5757 5871 872 3876 
TKVEC = 000060 176 8007* 8008 
TLOCK = 000010 19344 
T = 000064 17644 
T = 000034 17624 = 2106*  2107* 
TRTVEC=: 000014 1757# 
TSA. = 000200 18704 5743 5862 
TSOM = 000001 18684 2971 972 2981 2 299 3865 0 4162 4266 4375 4513 
4684 4855 5026 176 5326 5474 558 6 5818 5920 5986 6115 
6185 6290 6416 6546 6674 
TSTNUM 001262 19894 =2231* 2262 2293% 2316% 2339*  2373% 2409%  2444% 2480+ 518* 557* 2579 
2601* 2625  2648*  2670* 692 717* 743* 769* 795* 821* 847% 873* 899* 
29248 3014* 3062 110* 155* 1978 245% 293* * 389" 37* 85* 
* 582* * 78* = 3726* 3774% 3855" 4013" 4151% 42542 4353" 44962 4667+ 
4838* 5009* 5159* 5309* 5459  5568*  5689* 5807" 5911*  5977« 7* 108* 175* 
6271* 6397*  6525* 9x 6773* 7149 715 7155 715 ? 162 7165 ? 
TST1 002714 22298 
TST10 003704 2429 = 24424 
31512 6147 = 617. 
TST101 060 6229 6 
TST102 032620 6351 63954 
TST103 033374 6487 65234 
04 034112 6619 
TST105 034764 6764 67714 
TST11 004030 2464 4784 
TST1 004162 $e0s 206 25164 
TST1 004322 254 5554 
TST14 004404 2564 577# 
TST15 0044 5994 
TST16 }=©=©—.004550 260 6234 
TST17 004640 63 6464 
TST2 063024 246 «= 22604 
TST20 004722 2655 6684 
TST21 005004 2677 6904 
TST22 005 2699 7154 
TST23 00516 2726 7414 
TST24 005256 2752 sire 
TST25 005352 2778 7934 
TST26 005446 2804 8194 
rete? 005542 2830 8454 
TST 003134 2277 2914 


15 
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T 0056 856 8714 
TST31 «©0057 sin} 8974 
is Bit || BR Be 
EK 
TST35 1 3 
TST 00702 091 
TST 007226 139 
TST4 003216 300 
TST460 }§=—.00 77376 17 
TST41 007604 4 
TST4 010012 $ 4 
TST4 010220 22 398 
ST44 gioege 370 
TST45 §=©0106. 3418 35 
ST 011042 3466 3A 
TST47 ~=—.011250 3514 532 
TSTS 003276 $3e3 Ftd 
TST5O 6.011456 563 5804 
TST51 011664 3611 36284 
TST52 012072 3659 764 
TST53 012300 3707 7248 
TST54 §=©012506 3755 37 . 
TSTSS §=©012714 3803 385 
TST56 §=©013616 3962 40114 
TST57 oie766 4122 41498 
TST6 0034 2357 3=—s 23714 
TST60 015204 4228 42528 
TST61 015606 4319 43514 
TST62 016542 4479 4482 44948 
TST6S = 017700 4653 46654 
S764 0210. 4824 48 
TST65 022174 4995 50074 
ST66 023176 5145 51574 
TST67 = 024 5295 53074 
TST? §=§=©0035 2391 4074 
ST 025202 5445 457" 
TST71 025756 5554 5664 
TST72 026540 5664 
TST73 027326 5784 58054 
TST74 =O 5894 
TST75 = 030412 5961 59754 
TST76 =O. 6029 gs 
S177 = 031242 6090 1064 
XAB = 19044 3067 = 33068 )3=— (3077S 33084 3088 6067 
TXGA = 1905#@ 311 115 3116 = 3125 3132, 33136 6124 
TYPDS = 104405 2210 679 305 7689 86504 
TYPE = 104401 size $32 2165 187 197 $¢93 ah 795 798 7225 7233 7243 728 
¢ 29 7310 315 317 $8 30 339 7380 7 “6 7387 7405 
75% 7608 7611 7616 7627 76 7670 672 7675 767 769 7697 77 
7901 7976 =—&. 8029S: 8041 8095 8096 80 110 =68120 8131 15 8198 8204 
se 8215. 8218 8219 8221 8224 8228 294 296 §=68355—s 835 8518 8564 
TYPOC = 104402 7610 61 7661 7685 8098 8570 8577 86474 
TYPON = 86494 
TYPOS = 104403 2202 7294 86484 


15 
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WINST1 047010 gots 16* 86198 
WINST2 047016 17* 218 
WPINS 04676 8405s 05* 84084 
eC nn 
WRITE = 104416 415 rk: 488 524 719 745 771 823 2849 2875 
968 78 01 026 30 076 084 Vg 12 1 160 
1 209 3219 24 2 267 3295 305 315 3 391 
01 11 9 4 59 87 97 507. 3536 54 556 584 5 
632 2 5 80 $690 ? 728 73 7%, 77% 786 60-3796 
858 1 86 890 3902 392 931 93 935 01 4019 4020 
4026 4049 4050 4% 4078 4080 4082 4084 415 415715 4162 4168 
4169 4188 4198 4259 & 60 4261 426 4266 42 4285 4301 6366 
4368 4370 6375 438 4383 4402 4406 4 4501 02 09 4513 4520 
4521 4540 4571 4672 4673 4680 4684 91 46692 4711 6742 484 4844 
4851 4855 6862 4% 4882 4913 5016 5015 5016 $022 5026 5035 5048 
5054 5085 5164 5165 5166 5172 «+5176 +5183 519 5204 52 5314 5315 
53160-5322 5526 53335348 43= 5354 s«5385 5464 C506 5466 4054705474 0Ss«5481 
5496 9302 937 5574 5575 5579 5583 5590 5605 5611 5695 5696 5697 
5699 570 5706 «0 «55714.S's«d5728)=S «5813. s«d5B14Ss«dS815 «581 5818 5824 5832 5841 
5847 5913 «Ss «5914 «Ss «5915 Ss «5916 3S «5920 «Ss« S922 Ss«5923~=Ss«S 92 5927 5929 5935 5979 
3980 59815982 5986 = 39885989 5991 $993 5995 5997 6003 404960 
6051 6055 605 6058 6060 6062 6064 6066 6067 6110 6111 6115 6117 
6118 6120 6122 6126 6182 6183 6185 6187 6188 6278 6279 6289 
6292 6309 6314 1 6404 6405 6415 6416 6436 64436465 
6480 6533 6534 6535 65466 6548 6563 6586 6588 6659 6660 6661 6674 
6676 6680 6699 701 8 8420 51 8 8584 8586 8610 86614 
WSEC 046752 02 84108 
= 000001 18764 1879 1880 1882 1884 7992 8039 
Y = 000002 18774 1880 1884 
= 000004 187 1881 1882 1884 
SAUTOB 001134 182 2143" 8088 8245 
ADR 001122 18154 
SBDDAT 001126 18178 
$BELL 001230 18544 75 7665 8238 
SCHARC 044250 7790 7800" 7807 7833* 78388 
5236 80744 8654 
SCMTAG 001100 18034 2095 096 2104 10 2109 
= 10 18354 18364 18374 18384 18398 1840 18414 1842 18430 
$CM2 = 000020 18354 18 18374 18384 18398 184604 18614 18428 18434 
SCM3 = 000010 18334 183 
= 00001 18434 18444 18654 18664 184674 1848 18498 18508 18518 18524 18534 
SCNTLC 04616 8029 8110 8238" 
SCNTLG 046174 8095 82404 
Se a a er ere sow 23m zu 
gseGe 2529 Se 604 $863 954 43 4378 634658 
4 4734 350 5 5118 25448 2547 5728 25898 359 
5 6114 14 61 63 639 1 3 | (368 
7034 23706 108 9 373 7 554 84 8078 
810 28144 28334 38 84 8598 2862 8928 391 15 
17# 3950" 3953 5 g4# 3001 * 1 a 
1434 3146 14 1814 184 1904 32298 
328 S540 37 326 3828 18 4 1 1 
5574 569 750 148 7 71 71 7198 
7584 3761 #37674 38078 10 8484 39654 4129 4144" 342298 
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4232 42678 43218 4324 434 
48318 49978 20008 36 7 
55564 559 344 # 53670 
5965 9704 $0 14 60 
SCRLF 001235 185 387 $I 627 64 
82 99 835 
SOBLK 044716 794 76 79844 
035100 6791 00 68064 
BL 706 7945 804 
SOVICE 1246 ey" 2176* 209 7149 7152 
035070 213 68024 7640 
SENOCT 5036 ci? 6.9 
035107 679 68104 
SENULL 035104 6798 
SEOP 035006 2185 67844 
OPCT Pea 2108+ eras 6794 
SERFLG 00110 18064 S91* 7645 7706 7739 
RMAX 001115 18124 110* 7750" 7754 
SERROR 043114 2104 5894 7720 
RRPC 001116 18134 7149 oi 7155 7158 
7607* 7609 7613* 7614 7645 
SERRTB 001264 eo 7667 
SERRTY 043410 626 76524 
SERTTL 001112 H+ 4 7597* 7645 
SCAP 001226 185 109* 7636 7638 7645 
SFILLC 001156 18314 793 7841 
SFILLS 001155 18304 7841 
SGDADR 001120 18144 
SGDDAT 001124 18164 
$GET42 035060 67998 
SGTSWR 045326 80964 52 
SHD = 000003 1654 1655 
IOCT 046362 8287* 82984 8524 
SICNT 001104 18074 
SINTAG 001135 18214 8093 8112 8132 8245 
SITEMB 001114 18114 7600* 7645 7656 
F 001236 18574 387 7841 8228 ace 
001106 1808 2111* 3856* 4014* 4359 
6178* 7 7 6529* 6653 
001110 18094 suies 763 7743 7748 
046672 8390* 
eeeene 2129 139 7629 7747 7777 
04621 8099 
8096 41a 
1 17 2224 $398 $e" 
174 
206 4 OF 2430 
51 S19# 2544 550 552 
6024 2611 $18 rh 6 
§ 0 685 8 6934 ? 
6 764 704 781 7 
$5, She Shee, 
$094 03 05 
40 : 
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sir Sr, Same Sear Se, sees staat, 
g09g8 nese ie 58008 58964 5899 5904# 59624 
$3 573 497 7697 (7789 7841 8131 8218 








7155 7158 7160 7162 7165 7168 7546 






7745* 7754 


ay 7162 7165 7168 7598* 7599* 7600 7606* 





7749s 





8299 8359 
4498* 4669* 4840* 5011* 5161 5311*  5461*  5570* 
7743* 7747" 7752 7754 






249 $32 57 
736 34 

rt && § 
G36 3a 3668 
rat 712 7184 
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5354 575 577 5 14 23 5 314 
3373 3796 721 7278 3783" 67 9 3$8 33) 
4 ry 40148 41 4144 414 41 y 4229 4247 424 
4 43548 6684 4h 4491 44978 465 $90 38650 
483 4997 2008 5004 50104 147 515 154 1 5297 
5447 545 4 54604 5556 561 556 5694 ; 
5 580 58 5896 5904 591 970 97 
604 604 609 6101 619? 611 6170 61764 66 62724 
65264 ne: 5 6768 67744 
SNULL 001154 18 95 841 
SNWTST= 000000 2284 2594 3134 364 704 5064 4418 4778 ‘5154 
f 64 $6 # on 144 404 7 thy 4a 
+s ed 114 of" 1074 1524 1944 2428 864 
5 4 75a {Pr 7714 524 6401 41484 36318 43504 
0064 1564 53064 54564 5654 58044 § 744 8660444 
re 65224 64 67704 
SOCNT 044476 873% 7902e 79154 
500 7 cores 7877 7880* 7891 791784 
043746 7722 773 77514 
SPASS 001100 1 erere 6788s he 6809 
001234 18554 386 841 8150 8221 8238 8296 8299 8357 
SRDCHR 045 81634 8655 
C 046 83134 8658 
SRDOLIN 045670 81864 8656 
SRDOCT 046224 82604 8657 
$RDSZ = 000036 81794 
SREGAD 001160 18334 
SREGO 001162 18354 
SREG1 001164 1 
SRE 001166 18374 
SRE 001170 8384 
SREGG 001172 18394 
SREGS 001174 18404 
SREG6 001176 18414 
SREG7 001200 18424 
SRTINAD 035102 68084 
SR2A = eaeeee 8659 
SSAVRE= weeee2 J 86 
sSesuP= Sais? Osis ed 210 2104 2106 2108 2109 2111 2133 2136 6786 7590 7632 
640 at 803 8038 8039 8069 8245 
SSIZE 04654 148 83674 
SSTUP = 17777 a’ 
ssun” 06340 1654 es ores 1853 1854 109 111 112 230 261 229 2315 338 
37, 308 44 479 2517 3386 578 6 624 647 66 691 716 
74 7 794 20 ¢oe6 44 898 9 965 013 061 1 154 
1 244 29. 0 385 3 484 5 581 +4 77 725 
54 4012 415 4253 435 449 2686 4 008 158 708 56 
5 5806 591 5976 606 6107 174 § 0 6278 626° $66 677, § 
678 01 $907 09 7581 582 383 Se % 5 $0 7 $ 3 
1633 707 98 709 7710 7716 77 7735 77 7739 7740 41 
7748 7751 7754 
SSWRMK= 000000 7710 7711 7737 
18264 781 7821 8020 8050 8078 8105 


$TKB =©_: 001146 4 7841 zee £008 
STKCNT 044726 7989# = 80046* 8039  8056* 81 1728 
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STKINT 149 33 2 2341 2375 80044 8030 8091 
STKQEN= bee? 3a $58 
STKQIN 0447 79904 5* 006 8062* gogse Bes 8066* 
STeasR ce? 9928 8005. err" an 
STKS 001144 ti 83 89 1 7988 8010*  §8046* 8048 8054* 8076 8092 8102 8114* 
STKSRV 045006 8007 2 
STMPO 001202 het 2 * 7* 299 739° 322 385 
2388+ 4! 453* 455* 4 4918 535 
2561* 56 629* S3° $5¢ 676 
$6 * 698 48* 7498 51 748 601* 
80 oer" 853* 855 878* 879« 7 
32 9 971 973 80* Bie 
18* 019 3 039* 040« 042 76* 
77* 079 114® 115® 11 1248 136* 
3138 163* 201* 202* 04 11 23* 
; 25 49s 6 70* 71 300 
3se7e 3369" Ose Boge S08, Sate aoe 
* ® * et 2 
3444 451* 63* 65 $58 90* 3655 
3510* 511* 541 548* 549e 551 586* 
3587* 5 7* 08* 10 34% 5* 
7 3655* i. 685 36928 93* 706 
3730* 7318 74 751% 3752* 754 788 
3789« 791 7% 868* 869 8 3 
3893* 3894" 906* 907 909 3918 938* 
39392 3940 959e 3961 4026*  4027* 4039* 
4040 4042 4057 4067*  4068* 4069 4089 
4091 4098 110 4112 4119* 4121 4173 
4177 4178 4192* 4201% 4202 4209* 42198 
4220 4 4280 4281 4288* 43048 
4305 4312s 4 4386* 4387 4391 4410 
4417 4420* 44422 444 4446% 6448 4’62* 
4463" 4464 4524" 4525 one? 4530 45472 
4550 4556* 4574e 4575 4581 4589« 4599 
4601 4609* 4627* 4628 $620 4637* 4687* 
4695* sey 47 4715 4718* 4729 
4731 4745% 476 4768" 4769 477 4787 
47972 4798« ® $33 $ai¢ 4858* 4 4871 
4872 4879* 4 489 4898 4899 49060 4923 
4931* 4933 494 49518 $336 4958 & 49 
49792 4980* 49 $ 5030 5037* 50 a0he 504 505 
5061* 306s 5070*  5071* 39 5074 50 a 2083 509 aig * 511 
5129* 5130* 5131 5133 179% 5180 5187* 1 2128 51 5208 
5211* 5214 5220" 5221* 5§ 5224 5 * 5 38 2$7 * 5265 
Ae 5280* 5281 5283 5329e 5 53537* 5 $ 5 535 
5361* § 5370* 3865371" 865 g 5374 5 oe: 5389 539 5403* 541 
sehae 5430* 5431 5433 5477* 478 485* eee? sea) 5491 5506 
5509* HAG 5525* 2268 5540* 5418 54 554 586* 3287 5599 
5600 260 * 56 2$! 28! * Gs0° $s 38528 $ 2 Qe 54 
5702* 0 TA a ; 19 1 : 1 1 ; $ ® ; $ 4 
5751* 5752e 5755 75 5762* f63 770* 771* 7 774 827* 
2808 583 5835 § 5844* 584 584 o836e 585 5 587 
5874 5881*  5882* 5§ 5885 5934* 5938* 59392 5940 594 595 
5954 6002*  6006* 6007* 6008 6010 6018  6019* 6020 602 6076* 
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ce ar a oh. ar tar gue 





6455 6464 6468* 
$34 * 9376" $3 * 
ge$ 16 358* 
® 
STMP1 901204 i c3te £30 
® 
724% 725 76 
rs) ® 907 
0 ee 1 030* 
A Lg 1 g tg 
384 $f3 3 
43* 44 538 
541 550* 551 
¢° 7 57 
74 53% 54 
3897 98 3909* 
4031 4042 4043 
sists 4121 4177* 
4529% 4549% 4550 
4641 464 4700*  4720* 
480 4812* 4813 4871 
49722 497 4983* 46984 
5134 5192e 52132 5214 
5364 5374* 5375 5404" 
5545 5599* 5621* 5622 
58742 5875 5885* 5886 
84 6140* 6141 6193* 
6302* 630 6319* 6322 
69% 6483* sates $226° 
8530*  8536*  8539« 553 
Steely Surge 
TMP 1 3884" 885* 3898* 3899" 39102 39112 39232 39242 39432 39440 
wrtiatet herria: 4032s 1683s 4044% 4058% 4059% 40722 4073 1938: 4093*  4101* 
4178% 41792 4223" 42242 4281% 42822 43922 43932 44672 4468 
4562e 4602 4603* 4631% 46322 46422 4643 4701% 4702 4732 
4802* 48035* 4813* 48142 48722 46873 $7038 4904* 69442 4945 
4985 * 5044 5075% 5076% 51342 5135 193* he 5225* 
5343* 44e ; 75* 53762 54342 564352 54918 492% aa30 2 * 
26368 5718s 19 5756 57572 57752 144 36* 58372 875* 
5943* 5944e 59552 59562 6011* opi es 6023* 4e 60842 6085 
333s 8556s 6214* 6305*  6304*  6429% 64302 65972 6598*  6668* 
STMP3 1210 2 6225* 8553* 98557* 
STMP4 ESE: it eid oe0e® 557 6742 7165 7168 8558 
STMPS 001214 6 716 1 59s 
Simp? 001920 1sson foun fren 
STN == 000106 1eo4" 17 oy $ ad 46 59 agi 277 290 2924 300 tot 3154 
§ 3 3 5 4 (4 91 rt'y4 4084 4 441 $e 464 
477 4794 482 502 51 17& 542 554 5564 564 576 5784 586 


CZKMDAO_DMS11=DA STATIC 
CZKMDA.P11 


Reaeee 


04447 
000000 


20-0CT-81 


at 
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al 


nes 


FRESE 


aS 


#9 


Y 

354 
0084 
664 


® 


o 


Ww— 


WSS 


; 
82 





5 


6. 








é KMDAO_DMS11=DA STA mans! 30A(1052) 
CZ2KMDA.P11 “30-81 i 
-ROMCL 047 8 84724 8660 
AR 124 18624 

~ START 1 1795 
TICK $2 

-TICKE 0500 597 04 
WRITE 6674 83978 1 
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20924 
8609 86144 


CZKMDAO_DMS11=DA STATIC 


CZKMDA.P11 20-0CT-81 
BUMP 16eee 8398 
COMMEN 17668 
Gar 18S au 
656 344 
2 
54 394 
94 04 
735 745 
4045 4 
4415 4424 
4620 $633 
oR 
mi 
57 573 
614 6200 
6599 6605 
ESCAPE 17664 
GETPRI 17664 8377 
GETSWR 17664 21 
T 17664 
NEWTST 17664 2228 
645 667 
107 152 
3852 = 4010 
5908 5974 
NSET 16294 3869 
S222, 5372 
PARTAB 1625# 7187 
17664 2243 
2652 674 
1 018 
249 3259 
3489 $320 
3730 m0 
4053 406 
4288 4295 
4516 4524 
4718 4727 
4931 4939 
5129 3123 
ome 
60” 6127 
599 
SH 17664 7930 
REPORT 16444 1766# 
SCOPE legis 229 
55 anf 
ee 
15 30 
6771 785 
SET 16294 3869 


macrit 30A(1052) 
17:03 


8400 8426 


a 
‘ 3 


756 78 
4074 4094 
4428 = 4436 
4644 4703 
4911 $96! 
5124 5136 
5393 5399 
5747 5758 
6215 o¢e2 
6672 6749 


2259 2290 
$68? $513 
194 242 
4148 4251 
4 6105 
3920 4028 
5542 5652 
274 2297 
696 ¢ 
028 039 
$ 0 297 
3510 3538 
3751 3778 
4087 410 
rey 431 
4537 = 454 
4745 4760 
4951 4955 
5187 5201 
5403 5414 
5635 5639 
5856 5860 
6130 6133 
8262 8315 
260 29 
599 62 
3676 
7 5566 
3881 3895 


21-0CT-81 09:21 


8475 


Nw OSO-—Whnw 
nN WMO OS 6 are 
oo NwUNCOOW 


AUMMIMNE SRE EWINID NE ALWNN 
COA E10 NUIWW = NII 

UNM AAU WL 

A®ASOo—GcOO O00 


AONE 
Wolnw on 


own 


8595 


SARFUSSe 


Doran 
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Se inees 


ANAM SAS 


38 





4 
4 
& 
4 
5 
5 
5 
5 
5 


3 
563 


FOVNMN 
WIAA 
s3oe234 


wn 
w 
™N 


= 
on 
Oco™ 


WUINVONYTYO 
WWE NO 


RSANSIAD 
SMAI NUMT OUT 


64 
391 


& 
AEM 


COMMIT ES & & 
monvro 

Wn 

WN 


oul 
CBSU 


3 


UII & 
a4 
SS 


> 


SEQ 0195 


SA 
S esx 
Ko “on 


> 
YoUPcasSVoeeeTs 


RS 


CZKMDAO DMS11-DA STAT 
P11 20-0CT 


SISSSSSSARSSESTT 
COVES SSS ogy 


WIWINWNIWNIAG 


1 30A(1052) 


4599 
5372 
6426 


2484 


4826 


21-OCT-81 O09-c1 


2520 


4997 


47 
5652 


5297 
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$753 


8575 
7224 


5447 





4799 
5772 


8656 


7233 


5556 


wa 
— 
w 


win 
33 


Bes 


age 


Ses 
S32 
oon 
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SLINE1 16324 2395 2430 2503 
SLINE2 16 12 3148 
SLINIA 16 46 
SUI 16328 218-2249 23262360 
SLUIA = 1632 =. 2280 03 
1e26e 8479 84998 
SMSTCL 16268 8461 84724 
$P 16258 7445 
SREAD 16284 8423 84614 
SROMCL 16284 8472 84798 
SROVAR 16254 1859 1 
$SECQ 16358 ©2544 2567 2589 2611 263626582680 
SSEC2 16334 2950 3181 «= -3518 
$SEC3 16334 ©2703 
STICK 16298 8588  8615# 
STSTIN 1625# 2226 2257 2288 2311 2334 2368 2406 2639 2675 2513 2552 2576 259% 2 
gous 2665 g687 e712 738 a764 2790 1G 2842 2868 2894 25192961 3057 
105 3190-3192 5240 5¢BB 555655845458 80 3529 3577 25 73. «3721S (3769 
38504 4146 4249 4348 4491 2 4833 5006 5154 5306 5554 5563 5684 2 
5906, 3972 6042 610361706266 92 6520 6644 6768 
SWRITE 16284 8395 842 
$XZ Negse c718 2204 2049-2255 2280 22863303 2308 2326 2582 3360 2566 2595 2402 
24 e437 gh65oh73 2503 abl 2544 2350 2567 23722589 2594 2611 26182636 
2641 2658 2663 2680 2685 2703 2710 2729 27 275 762 2781 2788 2807 2814 
e833 28402859 86 2885 2892 e912 917-2950 29892995 4 4 55 
3103 3143 «3148 = 3181 «= 3190) 3229S 3238 «= 3277S 3286 «2S 3325S 3334S 3373S 3382 21 30 
3469 34678 3518 + 3527 «= 3566S 3575 3614 3623 2 3671 3710 3719 3758 «= 3767S 3807 
3848 3965 = 4006 = 4126 4144 42294247 43214346 44846 4489) 4655 4660) 4826 4831 
4997 5002 «5147, Ss 55152 «5297 «53025447 «= ‘5452 «5556 «5561 0S 5667S s«56B2~si«*S7BSCtCSS 5 
5904 5962 5970 6031 6040 6092 6101 
c 17968 ©1835 «= 1836S s« 1837S s«1838)«=— 1839S «1840 = «1841S: 1842 
SSCHTN 17964 ©1845 1844 184518461847 1848 = 18491850 18511852 
SSLRST 16284 8579 8588" 
WT 17668 2228 2259 2290 2313 2336 2370 2406 2641 2477 2515 2554 2576 2598 2622 
5 2667 2689 2714 2740 2766 2792 2818 2844 2870 2896 2921 2963 3011 59 
107 315z «3194 3242) 3290) 3338 «= 3386 «| 3434 3482S 3531 = 3579 3675 «3723S 3771 
3852, 4010S 4148 «= 4251 4350 4493 4835 5006 «= 5156) 5306 = 5456 = 5565 5686S 
3908, 3974 6044 103 172 62686394 6522 6646 6770 
SSSET = 86384 = 8647 8648 864986508652 8654 8655 86568657 86588659 8660 86618662 
S$$SKIP 17 2246 2277 2300 «2323 =3S 2357 = 2391 2429 2464 = 2482 2502 2542 564 5 608 
263 655 2677 2699 2726 2752 3778 2804 2830 2856 2882 2908 946 3 
139 3177S 3226 = 3274 «= (3322S 3370 «= 3418 «= 3466 = 3514 «= 35633611 59 3707-3755 
3803 39624122 4228_)=— 43194479) 4482 «4653 4824 4995 51455295 5445 5 
5784 5961 6029 6090 6147 6229 6351 6487 6619 67 
-EQUAT 16444 1656 
ZHEADE 16444 
“KT11 16444 
“SETUP 16444 2091 
“SCMTA 16444 


1 
CZKMDAO_DMS11-DA stat C MA macy 30A(1052" 21-OCT-81 09:21 PAGE 206 . 


CZKMDA.P11 20-0CT-81 17:03 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0198 
-SRDDE 16448 
-SRDOC 16444 46 


- ABS. 050154 000 


ERRORS DETECTED: 0 


Se Tin tiers TOC=CZKMDA 
RUN-TIME: 148 148 14 SECONDS 
RUN-TIME RATIO: 1063/313=3.3 
CORE USED: 45K (89 PAGES) 


